R调用for循环中动态创建的列表

我创建了下面的动态列表，名称为cluster_1、cluster_2。。。像这样：

observedUserShifts <- vector("list")
cut <- 2

for (i in 1:cut) {
   assign(paste('cluster_', i, sep=''), subset(sortedTestRTUser, cluster==i))
   observedUserShifts[[i]] <- mean(cluster_1$shift_length_avg)
}

---

observedshifts同意这是次优编码实践，但要回答特定问题，请使用
get
：

for (i in 1:cut) {
   assign(paste('cluster_', i, sep=''), subset(sortedTestRTUser, cluster==i))
   observedUserShifts[[i]] <- 
             mean( get(paste('cluster_', i, sep='') )[['shift_length_avg']] )
}

for（1中的i:cut）{
分配（粘贴（'cluster_'，i，sep=''），子集（sortedTestUser，cluster==i））
观察到的移位[[i]]同意这是次优编码实践，但要回答特定问题，请使用
get
：

for (i in 1:cut) {
   assign(paste('cluster_', i, sep=''), subset(sortedTestRTUser, cluster==i))
   observedUserShifts[[i]] <- 
             mean( get(paste('cluster_', i, sep='') )[['shift_length_avg']] )
}

for（1中的i:cut）{
分配（粘贴（'cluster_'，i，sep=''），子集（sortedTestUser，cluster==i））
observedUserShifts[[i]]由于多种原因，这不是在每个簇内找到平均值的好方法。相反，使用聚合、data.table或dplyr，例如，您可以简单地执行
library（dplyr）；SortedTestUser%%>%group_by（cluster）%%>%Summary（observedUserShifts=mean（shift\u length\u avg））
由于多种原因，这不是在每个集群中找到平均值的好方法。相反，可以使用聚合、data.table或dplyr，例如，您可以简单地执行
library（dplyr）；SortedTestRunser%%>%group\u by（cluster）%%>%Summary（ObservedUserShift=mean（shift\u length\u avg））