如何将 table 从列布局传递到 R 中的行布局?
How to pass a table from a column layout to a line layout in R?
我在列布局上有一个 R table。图片中是左边那个。我想把它放在一个行布局上,它看起来像正确的 table.
我的想法是创建一个没有柱网的table和一个没有割让的table。
我更改了字段的名称 net 并割让了金额。
然后我为他们两个创建一个带有 id 的列。
然后我追加它们。
但是有更短的方法吗?
提前致谢,
Tables
使用 tidyr
并使用一些创建的数据,因为我不想从您的图片中获取数据:
> data
year net ceded
1 1 266.73007 317.6823
2 2 729.50176 366.0213
3 3 425.06088 162.0960
4 4 723.09221 348.2421
5 5 45.05688 467.0686
6 6 44.78075 154.3635
7 7 59.73864 750.4060
8 8 526.06015 585.1687
9 9 229.78809 554.1722
10 10 355.92545 232.5220
现在我们要将这些数据转换成 "longer" 格式:
data %>%
pivot_longer(cols=c(net, ceded), names_to="id", values_to="amount")
产量
# A tibble: 20 x 3
year id amount
<int> <chr> <dbl>
1 1 net 267.
2 1 ceded 318.
3 2 net 730.
4 2 ceded 366.
5 3 net 425.
6 3 ceded 162.
7 4 net 723.
8 4 ceded 348.
9 5 net 45.1
10 5 ceded 467.
11 6 net 44.8
12 6 ceded 154.
13 7 net 59.7
14 7 ceded 750.
15 8 net 526.
16 8 ceded 585.
17 9 net 230.
18 9 ceded 554.
19 10 net 356.
20 10 ceded 233.
使用 reshape2
的替代方法:
data %>%
melt(id.vars=c("year"), measure.vars=c("net", "ceded"))
我在列布局上有一个 R table。图片中是左边那个。我想把它放在一个行布局上,它看起来像正确的 table.
我的想法是创建一个没有柱网的table和一个没有割让的table。 我更改了字段的名称 net 并割让了金额。 然后我为他们两个创建一个带有 id 的列。 然后我追加它们。
但是有更短的方法吗?
提前致谢, Tables
使用 tidyr
并使用一些创建的数据,因为我不想从您的图片中获取数据:
> data
year net ceded
1 1 266.73007 317.6823
2 2 729.50176 366.0213
3 3 425.06088 162.0960
4 4 723.09221 348.2421
5 5 45.05688 467.0686
6 6 44.78075 154.3635
7 7 59.73864 750.4060
8 8 526.06015 585.1687
9 9 229.78809 554.1722
10 10 355.92545 232.5220
现在我们要将这些数据转换成 "longer" 格式:
data %>%
pivot_longer(cols=c(net, ceded), names_to="id", values_to="amount")
产量
# A tibble: 20 x 3
year id amount
<int> <chr> <dbl>
1 1 net 267.
2 1 ceded 318.
3 2 net 730.
4 2 ceded 366.
5 3 net 425.
6 3 ceded 162.
7 4 net 723.
8 4 ceded 348.
9 5 net 45.1
10 5 ceded 467.
11 6 net 44.8
12 6 ceded 154.
13 7 net 59.7
14 7 ceded 750.
15 8 net 526.
16 8 ceded 585.
17 9 net 230.
18 9 ceded 554.
19 10 net 356.
20 10 ceded 233.
使用 reshape2
的替代方法:
data %>%
melt(id.vars=c("year"), measure.vars=c("net", "ceded"))