Dataframe R，每隔一行添加一次

Question

这个简短的例子说明了这个问题我想在我的数据帧中的每一行之后添加相同的信息Total和Value。应该为每一个新行提供正确的ID。

data.frame(ID=c('A1','A2'), one=c(1,2), two=c(3,4))
  ID one two
1 A1   1   3
2 A2   2   4

最终结果应如下所示。

data.frame(ID=c('A1','A1','A2','A2'), one=c(1,'Total',2,'Total'), two=c(3,'Value',4,'Value'))
  ID   one   two
1 A1     1     3
2 A1 Total Value
3 A2     2     4
4 A2 Total Value

我找到了一些相关的SO问题，但他们并没有真正回答我的问题。

Answer 1

基础R版本将是

#Create a new dataframe with same rows with `ID` value from df
df1 <- data.frame(ID = df$ID, one='Total', two='Value')

#rbind both the dataframes
df2 <- rbind(df, df1)

#Order the new dataframe based on the ID to get alternating rows
df2[order(df2$ID), ]

#  ID   one   two
#1 A1     1     3
#3 A1 Total Value
#2 A2     2     4
#4 A2 Total Value

数据

df <- data.frame(ID=c('A1','A2'), one=c(1,2), two=c(3,4))

Answer 2

我对这种转换的有用性有点好奇，但这是实现它的一种方法：

df <- data.frame(ID=c('A1','A2'), one=c(1,2), two=c(3,4))

library(tidyverse)
df %>%
  mutate(one='Total', two='Value') %>% 
  bind_rows(mutate_all(df, as.character)) %>% 
  arrange(ID, one)

输出：

  ID   one   two
1 A1     1     3
2 A1 Total Value
3 A2     2     4
4 A2 Total Value