r - 使用 rhandsontable 转置与计数

Question

通过下表，我们可以使用rhandsontable进行转置吗？所以无论用户居住在哪里，然后是，否则不是

df
User Places
A    fsdfsd
B    fsdfsd
C    fsdfsd
A    fsfgfd
B    fsfgfd

预期产出

User    fsdfsd  fsfgfd  Total Yes
A        Yes    Yes        2
B        Yes    Yes        2
C        Yes    No         1

Answer 1

使用dplyr和tidyr包的解决方案

library(dplyr)
library(tidyr)

df %>% 
  mutate(value = "Yes") %>% 
  pivot_wider(User, names_from = Places, values_from = value, values_fill = "No") %>% 
  rowwise() %>% 
  mutate(`Total Yes` = sum(c_across(-User) == "Yes"))

输出

# A tibble: 3 x 4
# Rowwise: 
#   User  fsdfsd fsfgfd `Total Yes`
#   <chr> <chr>  <chr>        <int>
# 1 A     Yes    Yes              2
# 2 B     Yes    Yes              2
# 3 C     Yes    No               1