R 从宽轴一次重复列到宽轴
假设我有以下宽格式的数据:R 从宽轴一次重复列到宽轴,r,dataframe,dplyr,pivot-table,reshape,R,Dataframe,Dplyr,Pivot Table,Reshape,假设我有以下宽格式的数据: data = tibble::tribble( ~ID, ~Time, ~Value, ~ValueX, "A", 1, 11, 41, "A", 2, 12, 42, "A", 3, 13, 43, "B", 1, 21, 41, "B", 2, 22, 42, "B", 3, 23, 43, "C&
data = tibble::tribble(
~ID, ~Time, ~Value, ~ValueX,
"A", 1, 11, 41,
"A", 2, 12, 42,
"A", 3, 13, 43,
"B", 1, 21, 41,
"B", 2, 22, 42,
"B", 3, 23, 43,
"C", 1, 31, 41,
"C", 2, 32, 42,
"C", 3, 33, 43
)
由于ValueX是一个重复变量,在ID组变量中没有变化,因此我只想将其添加为ID标识的新行。这将是所需的输出:
data.desired = tibble::tribble(
~ID, ~Time, ~Value,
"A", 1, 11,
"A", 2, 12,
"A", 3, 13,
"B", 1, 21,
"B", 2, 22,
"B", 3, 23,
"C", 1, 31,
"C", 2, 32,
"C", 3, 33,
"ValueX", 1, 41,
"ValueX", 2, 42,
"ValueX", 3, 41
)
下面是一种通过基数R的方法。您可以每次聚合ValueX,并每次获得第一个观察值。然后创建一个与原始数据同名的数据帧,只需rbind,即 使用tidyverse
事实并非如此。因为任何常规的重塑方法都会导致我产生两个标识符变量,例如,ID加上ID_new和一个新值变量value_new的组合,使得ValueX在分组变量中重复。很好!它满足了我的需要。我想我可以用dplyr的方式做同样的事情。非常感谢。
rbind(data[-ncol(data)],
setNames(data.frame('ValueX', aggregate(ValueX ~ Time, data, head, 1)),
names(data[-ncol(data)])))
# A tibble: 12 x 3
# ID Time Value
# <chr> <dbl> <dbl>
# 1 A 1 11
# 2 A 2 12
# 3 A 3 13
# 4 B 1 21
# 5 B 2 22
# 6 B 3 23
# 7 C 1 31
# 8 C 2 32
# 9 C 3 33
#10 ValueX 1 41
#11 ValueX 2 42
#12 ValueX 3 43
addCase <- distinct(data, Time, ValueX) %>%
pivot_longer(-Time, names_to = "ID", values_to = "Value")
data %>%
select(-ValueX) %>%
add_case(addCase)
# A tibble: 12 x 3
ID Time Value
<chr> <dbl> <dbl>
1 A 1 11
2 A 2 12
3 A 3 13
4 B 1 21
5 B 2 22
6 B 3 23
7 C 1 31
8 C 2 32
9 C 3 33
10 ValueX 1 41
11 ValueX 2 42
12 ValueX 3 43