Question

我有一个数据框。其中col3和col4中的值在错误的行中为1.底行值应该在顶行，顶行应该在第二行，依此类推

目前

col1 col2  col3  col4
 a    b      c     d
 e     f     g     h
 i      j    k     l

应该是

 col1 col2  col3  col4
  a    b      k     l
  e     f     c     d
   i    j     g     h

如何将col3和col4中的值一个向下移动，最后一个成为第一个？

Answer 1

我倾向于使用dplyr的mutate_each和summarise_each函数将相同的函数应用于多个列。以下是使用自定义“交换”功能处理它的方法，以提高可读性：

library(dplyr)

定义一个函数：

swap <- function(x) c(last(x), head(x, -1L))

现在您可以在“mutate_each”中使用此自定义函数，并指定要将该函数应用于的列：

mutate_each(df, funs(swap), col3, col4)
#  col1 col2 col3 col4
#1    a    b    k    l
#2    e    f    c    d
#3    i    j    g    h

如果您更喜欢基础R，您可以类似地使用稍微修改的函数“swap2”和“lapply”将该函数应用于多个列：

# define the function:
swap2 <- function(x) c(tail(x, 1L), head(x, -1L))
# define the columns you want to apply the function to:
cols <- c("col3", "col4")
# Finally, lapply over the data:
df[cols] <- lapply(df[cols], swap2)

数据：

> dput(df)
structure(list(col1 = c("a", "e", "i"), col2 = c("b", "f", "j"
), col3 = c("c", "g", "k"), col4 = c("d", "h", "l")), .Names = c("col1", 
"col2", "col3", "col4"), class = "data.frame", row.names = c(NA, 
-3L))

Answer 2

假设d是您的data.frame：

d$col3 <- c(d$col3[length(d$col3)], d$col3[-length(d$col3)])
d$col4 <- c(d$col4[length(d$col4)], d$col4[-length(d$col4)])

Answer 3

试试这个

df <- data.frame(col1=c("a", "e", "i"),
                 col2=c("b", "f", "j"),
                 col3=c("c", "g", "k"),
                 col4=c("d", "h", "l"))


df <- cbind(df[, 1:2], df[c(dim(df)[1], 1:(dim(df)[1]-1)), 3:4])

Answer 4

使用字符而不是因子创建数据框：

df <- data.frame(col1=c("a", "e", "i"),
                 col2=c("b", "f", "j"),
                 col3=c("c", "g", "k"),
                 col4=c("d", "h", "l"), stringsAsFactors=FALSE)

df$col3 <- c(df$col3[nrow(df)], df$col3[1:(nrow(df)-1)])
df$col4 <- c(df$col4[nrow(df)], df$col4[1:(nrow(df)-1)])

输出：

> df
  col1 col2 col3 col4
1    a    b    k    l
2    e    f    c    d
3    i    j    g    h

Answer 5

假设df是您的数据帧，您可以使用for循环

temp3 = df[nrow(df),3]
temp4 = df[nrow(df),4]
for(i in 2:nrow(df)){
    df[(i,3] = df[((i - 1),3]
    df[(i,4] = df[((i - 1),4]
}
df[1, 3] = temp3
df[1, 4] = temp4

从最后一行复制值并粘贴到第一行r

5 个答案: