Question

我是一个具有不同列的数据框，其中包含来自不同评估者的字符串答案，他们在答案中使用随机的大写或小写。我想将所有内容转换为小写。我有一个代码如下：

# Creating a reproducible data frame similar to what I am working with
dfrm <- data.frame(a = sample(names(islands))[1:20],
               b = sample(unname(islands))[1:20],
               c = sample(names(islands))[1:20],
               d = sample(unname(islands))[1:20],
               e = sample(names(islands))[1:20],
               f = sample(unname(islands))[1:20],
               g = sample(names(islands))[1:20],
               h = sample(unname(islands))[1:20])
# This is how I did it originally by writing everything explicitly:
dfrm1 <- dfrm
dfrm1$a <- tolower(dfrm1$a)
dfrm1$c <- tolower(dfrm1$c)
dfrm1$e <- tolower(dfrm1$e)
dfrm1$g <- tolower(dfrm1$g)
head(dfrm1) #Works as intended

问题在于随着评估人数的增加，我不断制作复制粘贴错误。我试图通过编写tolower的函数来简化我的代码，并使用sapply来循环它，但最终的数据框看起来不像我想要的那样：

# function and sapply:
dfrm2 <- dfrm
my_list <- c("a", "c", "e", "g")
my_low <- function(x){dfrm2[,x] <- tolower(dfrm2[,x])}
sapply(my_list, my_low) #Didn't work

# Alternative approach:
dfrm2 <- as.data.frame(sapply(my_list, my_low))
head(dfrm2) #Lost the numbers

我错过了什么？

我知道这一定是一个我没有得到的非常基本的概念。有this question and answer that I simply couldn't follow和this one where my non-working solution simply seems to work。感谢任何帮助，谢谢！

Answer 1

也许您想要创建一个逻辑向量来选择要更改的列，并仅在这些列上运行应用函数。

# only choose non-numeric columns
changeCols <- !sapply(dfrm, is.numeric)

# change values of selected columns to lower case
dfrm[changeCols] <- lapply(dfrm[changeCols], tolower)

如果您有其他类型的列，例如逻辑列，那么您还可以更明确地了解要更改的列类型。例如，要仅选择因子和字符列，请使用。

changeCols <- sapply(dfrm, function(x) is.factor(x) | is.character(x))

Answer 2

首次尝试时，如果您想要保留数据框dfrm2的分配，请使用<<-赋值运算符：

my_low <- function(x){ dfrm2[,x] <<- tolower(dfrm2[,x]) }
sapply(my_list, my_low)

如何将sapply循环的输出分配给数据框中的原始列，而不会丢失其他列

2 个答案:

Demo