R中未定義的列選擇錯誤

Question

我事先表示歉意，因為我對編碼非常陌生，幾天前我的老板就將其引入了一個項目。

我的數據集稱為s1。 S1有123個變量，其中4個變量的名稱具有某種形式的“ QISSUE”。 我想采用這四個變量並將其全部復制，在每個變量的末尾添加“ Rec”（這樣，我可以自由地使用新變量，同時仍保持實際變量）。

運行以下代碼行會一直給我一個錯誤：

b<- llply(s1[,
            str_c(names(s1)
                     [str_detect(names(s1), fixed("QISSUE"))], 
                              "Rec")],table)

錯誤是這樣的：

Error in `[.data.frame`(s1, , str_c(names(s1)[str_detect(names(s1), fixed("QISSUE")) &  : 
  undefined columns selected

謝謝！

Answer 1

使用它來獲取子集。 當然，還有其他方法可以使用更簡單的代碼

b<- llply(s1[,
             names(s1)[str_detect(names(s1), fixed("QISSUE"))]
             ],c)

nwnam=str_c(names(s1)[str_detect(names(s1), fixed("QISSUE"))],"Rec")
ndf=data.frame(do.call(cbind,b));colnames(ndf)=nwnam
ndf 
# of course you can do 
cbind(s1,ndf)