r代表循环迭代不是每个项目

Question

问题：

我的for循环不会出现在我的数据帧进行循环。我认为这是因为它打印出我的调试打印行时的所有内容。在对代码工作对自己

目标

我想在一个相当大的数据集上运行的所有组的相关性。该代码应该遍历一个唯一的路径列表（var3）并在每条路径上运行相关性。

数据帧设置：

df.1 
id var1 var2 var3 
1 23 2.1 "this" 
2 32 2.2 "is" 
3 13 2.3 "is" 

CODE

# reduce size 
directory.df$var1<-format(round(directory.df$var1/1000,1),nsmall=1) 
directory.df$var2<- format(round(directory.df$var2/1000,1),nsmall=1) 

df.1 <- unique(directory.df$var3) 
df.1 <- data.table(unique.directories) 

for (current.dir in df.1) 
{ 
print (current.dir) 
directory.group <- subset(directory.df, var3 == current.dir) 
directory.group$var1<- as.numeric(directory.group$var1) 
directory.group$var2<- as.numeric(directory.group$var2) 

## correlation ## 
cor(directory.group$var1, directory.group$var2) 
} 

当运行该代码，打印（current.dir）将打印出整个列表。看起来好像for（current.dir in df.1）的第一行将var3的所有值并将其放入current.dir中。

Answer 1

我只是需要删除这一行df.1 < - data.table（unique.directories），它的工作。

# reduce size 
directory.df$var1<-format(round(directory.df$var1/1000,1),nsmall=1) 
directory.df$var2<- format(round(directory.df$var2/1000,1),nsmall=1) 

df.1 <- unique(directory.df$var3) 

for (current.dir in df.1) 
{ 
print (current.dir) 
directory.group <- subset(directory.df, var3 == current.dir) 
directory.group$var1<- as.numeric(directory.group$var1) 
directory.group$var2<- as.numeric(directory.group$var2) 

## correlation ## 
cor(directory.group$var1, directory.group$var2) 
}