当我有多个带有"x“和NAs的列时，如何引用我的数据？

Question

我的数据如下所示：

df <- data.frame("Name"=c("A", "B", "C", "D", "E", "F"), 
                 "SM1"=c(NA, NA, "x", NA, "x", "x"), 
                 "SM2"=c("x", NA, NA, "x", "x", NA),
                 "SM3"=c("x", "x", "x", NA, NA, NA),
                 "Gender"=c("female", "male","male","male","female","female")
                 )

在这个例子中，我让几个人使用不同的超市，其中"x“表示每个人使用哪个超市。这些人中的每一个都有其他属性，比如“性别”等。

我想将这些属性与使用ggplot2的每个超市的堆叠条形图进行比较，比如每个超市有多少女性和男性顾客。

我的问题是，我没有一个单独的列告诉我使用哪个超市，因为每个人都可以使用每种超市组合，因此我不知道如何参考我的数据来绘制它。我该怎么做呢？

干杯!

Answer 1

这就是你要找的东西吗？

library(dplyr)
library(tidyr)
library(stringr)
library(ggplot2)

df <- data.frame("Name"=c("A", "B", "C", "D", "E", "F"), 
                 "SM1"=c(NA, NA, "x", NA, "x", "x"), 
                 "SM2"=c("x", NA, NA, "x", "x", NA),
                 "SM3"=c("x", "x", "x", NA, NA, NA),
                 "Gender"=c("female", "male","male","male","female","female"), 
                 stringsAsFactors = FALSE) %>% 
  pivot_longer(cols = SM1:SM3, names_to = "sm", values_to = "gen") %>% 
  mutate(gen = case_when(gen == "x" ~ Gender,
                         TRUE ~ NA_character_)) %>% 
  group_by(sm, gen) %>% 
  summarise(count = n()) %>% 
  na.omit()


ggplot(df, aes(sm, count, fill = gen)) +
  geom_bar(stat = "identity")

这为您提供了：

​

​