You can do this using a basic `case_when` statement:
``` data %>% mutate(Sepal.Length = case_when( Sepal.Length <= 3 ~ '3', Sepal.Length >= 5 ~ '5', TRUE ~ as.character(Sepal.Length)))
Sepal.Length Sepal.Width Petal.Length Petal.Width Species 1 5 3,5 1,4 0,2 setosa 2 4,9 3,0 1,4 0,2 setosa 3 4,7 3,2 1,3 0,2 setosa 4 4,6 3,1 1,5 0,2 setosa 5 5 3,6 1,4 0,2 setosa 6 5 3,9 1,7 0,4 setosa ```

Since R.2.14 (I guess) you can feed your data text representation directly to `read.table`:

df <- read.table(header=TRUE, text="Sepal.Length Sepal.Width Petal.Length Petal.Width Species 1 5.1 3.5 1.4 0.2 setosa 2 4.9 3.0 1.4 0.2 setosa 3 4.7 3.2 1.3 0.2 setosa 4 4.6 3.1 1.5 0.2 setosa 5 5.0 3.6 1.4 0.2 setosa 6 5.4 3.9 1.7 0.4 setosa ")