如何从R中的excel复制数据透视表过程？

Question

我有一组包含三列的数据。 我想在左侧“分组”我的第二列“位置”。 想象一下纽约、伦敦、柏林和所有列在左栏上的城市。

我想“分组”第三列是“种族”但作为新列

Location | White| Black |Asian|Grand Total
New York   700   465     323   1,488
London     1000  600     200   1,800

我有这个代码

Attempt<-table %>%
group_by(`Location`) %>%
summarise(n())

但它让我得到这个结果

Location|Grand Total
New York 1,488
London   1,800

在excel中做这样的例子很容易。 我想在 R 中执行此操作。它只是计算值在表中出现的次数。

Answer 1

根据您的描述，这可能就是您要找的。

首先将group_by Location和Race以获取小计计数。

然后您可以使用pivot_wider以宽格式获得最终所需的表格。

最后一个rowSums将获得一个Grand_Total （其中 -1 从计算中删除Location列）。

我编了一些数据来说明。

library(tidyverse)

df %>%
  group_by(Location, Race) %>%
  summarise(Total = sum(n())) %>%
  ungroup() %>%
  pivot_wider(id_cols = Location, names_from = Race, values_from = Total, values_fn = list(Total = sum), values_fill = list(Total = 0)) %>%
  mutate(Grand_Total = rowSums(.[,-1]))

输出

# A tibble: 3 x 5
  Location Black Asian White Grand_Total
  <fct>    <int> <int> <int>       <dbl>
1 Berlin       1     0     0           1
2 London       0     1     2           3
3 New York     1     0     1           2 

数据

df <- data.frame(
  ID = 1:6,
  Location = c("New York", "London", "Berlin", "London", "New York", "London"),
  Race = c("White", "White", "Black", "Asian", "Black", "White")
)