分割データフレームを動的

Question

私は、データフレームは、データと呼ばれています：

**Select.Actions**  **Current.State** **Next.State** 
Hire new staff   Out of Benchmark Withinbenchmark 
Hire new staff   Out of Benchmark Withinbenchmark 
Discuss with Customer Withinbenchmark Withinbenchmark 
Discuss with Customer Withinbenchmark Withinbenchmark 
Discuss with Customer Out of Benchmark Out of Benchmark 
Fire new staff   Out of Benchmark Withinbenchmark 
Discuss with Customer Withinbenchmark Withinbenchmark 
Discuss with Customer Out of Benchmark Withinbenchmark 
Fire new staff   Out of Benchmark Withinbenchmar 

私はSelect.Actionsの値に基づいて、独立したデータフレームを持っていると思います。

#select First Column of dataframe 
d<-data[1] 

次に、データをdの入力と一致させたいとします。 dはダイナミックであり、それは時間の経過とともに変化しますので、私は別のデータフレームにデータフレームを分割するためにループを書いたので：

split<-for(i in 1:length(d)){ 
z[i]<-subset(data, data[,"Select.Actions"] %in% d[i],select=c(Current.State,Next.State))} 

それから私は、次の警告メッセージが表示されました。

Warning message: 
In `[<-.data.frame`(`*tmp*`, i, value = list(Current.State = integer(0), : 
    provided 2 variables to replace 1 variables 

ロジックについてアドバイスしてください。

出力はNULLです。

Answer 1

z[i]<-subset(data, ...に複数の行と列を割り当てている場合は、rbindを使用できます。私は、subsetをHadelyによって説明されているように使用しないことをお勧めします。heredplyr解決策があなたに役立つかどうかお知らせください。

library(dplyr) 
data <- read.table(text = 'Select.Actions,Current.State,Next.State 
Hire new staff,Out of Benchmark,Withinbenchmark 
Hire new staff,Out of Benchmark,Withinbenchmark 
Discuss with Customer,Withinbenchmark,Withinbenchmark 
Discuss with Customer,Withinbenchmark,Withinbenchmark 
Discuss with Customer,Out of Benchmark,Out of Benchmark 
Fire new staff,Out of Benchmark,Withinbenchmark 
Discuss with Customer,Withinbenchmark,Withinbenchmark 
Discuss with Customer,Out of Benchmark,Withinbenchmark 
Fire new staff, Out of Benchmark,Withinbenchmar', 
        header = TRUE, sep =",", stringsAsFactors = FALSE) 



z <- NULL 
for(i in 1:nrow(data)) 
{ 
    interm_data <- data %>% filter(Select.Actions == data[i,1]) %>% select(Current.State, Next.State) 
    if(is.null(z)) 
    { 
    z<- interm_data 
    }else{ 
    z<- rbind(z,interm_data) 
    } 
    print(data[i,1]) 
    print(interm_data) 

} 

**更新**

ユーザーのコメントに基づいて。

z <- list() 
trim <- function (x) gsub("^\\s+|\\s+$", "", x) 
for(i in unique(data$Select.Actions)) 
{ 
    z[[trim(i)]] <- data %>% filter(Select.Actions == i) %>% select(Current.State, Next.State) 
} 
list2env(z ,.GlobalEnv) 
# Now you will have 3 data sets `Hire new staff`, `Fire new staff` and `Discuss with customer` in your workspace. 

しかし、私はあなたのニーズに合わせて最初のループを使用しません。