如何遍历数据框中的列

Question

我有一个以下向量h=c("a","b","c","d","e")

我想使用lag() function 创建看起来像这样的数据集：

pr <- data.frame(your_github         = h, 
                 review_this1        = lag(h),
                 review_this2        = lag(h,2))

但是，当我使用 lag 时，会发生以下情况： col2=c(NA,"a","b","c","d") 和 col3=(NA,NA,"a","b","c ")

但我需要得到类似于data.frame(col1=c("a","b","c","d","e"),col2=c("b","c","d","e","a"), col3=("c","d","e","a","b"))其中 col2 和 col3 中的值是循环的（即第二列是只是第一个滞后 1，但第二个中的第一个项目是 st 列中的最后一个项目）。

Answer 1

像这样的东西？

library(dplyr) 

h = c("a","b","c","d","e")
pr <- data.frame(your_github = h,
                 review_this1 = ifelse(is.na(lead(h)), h[1], lead(h)),
                 review_this2 = ifelse(is.na(lead(h, 2)), h[2:1], lead(h, 2)))
pr

#  your_github review_this1 review_this2
#1           a            b            c
#2           b            c            d
#3           c            d            e
#4           d            e            a
#5           e            a            b

Answer 2

使用基础 R 您可以通过head和tail实现此目的（在此处测试 tio ）：

h<-letters[1:5]
pr <- data.frame(your_github         = h, 
                 review_this1        = c(tail(h, -1), head(h, -1)),
                 review_this2        = c(tail(h, -2), head(h, -2)))
print(pr)

Output：

  your_github review_this1 review_this2
1           a            b            c
2           b            c            d
3           c            d            e
4           d            e            a
5           e            a            b

这个想法是将向量h的开头与 tail 连接起来，并将其与head所取向量的末尾减去我们从 tail 得到的向量连接起来，这样 dataframe 的每一列（向量）的末尾长度都相同。

如果要循环使用最后一个值成为第一个值的向量，只需反转尾部和头部中的符号即可。