我可以添加列名到一个变量，而我运行一个' for '循环在R?

Question

我在R中做了一个练习，要求我找到几个变量的茎叶图。例如，这个过程的第一次迭代将是:

> with(data = Commercial_Properties, stem(x = Op_Expense_Tax))
The decimal point is at the |
2 | 0
4 | 080003358
6 | 012613
8 | 00001223456001555689
10 | 013344566677778123344666668
12 | 00011115777889002
14 | 6

在此之后，我必须为更多的变量重复执行此操作。因此，在我改进的道路上，我记得我的一个精通编程的朋友提到，如果你反复做同样的任务，那么它需要某种形式的for循环来完成。

作为结果，我尝试这样做:

for (i in 2:5){

stem_colnames(Commercial_Properties[i]) = with(data = Commercial_Properties, stem(x = unlist(Commercial_Properties[,i])))

}

我想要做的代码是从我的数据框架中提取列名，将其附加到stem_以创建各自变量的名称，然后生成各自的茎和叶图。我很可能手动做到这一点，但我想知道是否有可能自动化这个过程?我是否过于雄心勃勃地希望我也能迭代地命名变量?

为了重现这个例子，下面是dput的输出。

dput(head(Commercial_Properties, 5))
structure(list(Rental_Rates = c(13.5, 12, 10.5, 15, 14), Age = c(1, 
14, 16, 4, 11), Op_Expense_Tax = c(5.02, 8.19, 3, 10.7, 8.97), 
Vacancy_Rate = c(0.14, 0.27, 0, 0.05, 0.07), Total_Sq_Ft = c(123000, 
104079, 39998, 57112, 60000)), row.names = c(NA, -5L), class = c("tbl_df", 
"tbl", "data.frame"))

EDIT: packages used:tidyverse,car

Answer 1

考虑使用cat

for (i in 2:5){cat(names(Commercial_Properties)[i], "n")
stem(Commercial_Properties[[i]])
}

与产出

Age 
The decimal point is 1 digit(s) to the right of the |
0 | 14
0 | 
1 | 14
1 | 6
Op_Expense_Tax 
The decimal point is at the |
2 | 0
4 | 0
6 | 
8 | 20
10 | 7
Vacancy_Rate 
The decimal point is 1 digit(s) to the left of the |
0 | 057
1 | 4
2 | 7
Total_Sq_Ft 
The decimal point is 4 digit(s) to the right of the |
2 | 
4 | 07
6 | 0
8 | 
10 | 4
12 | 3

---

或者如果我们需要一个函数

f1 <- function(dat, colind) {
for(i in colind) {
cat(names(dat)[i], "n")
stem(dat[[i]])
}
}
f1(Commercial_Properties, 2:5)

---

或者可以使用iwalk

library(purrr)
iwalk(Commercial_Properties, ~ {cat(.y, "n"); stem(.x)})