用ggplot2绘制虚拟变量

问题描述

在这个问题上，我实际上需要帮助： ggplot2 graphic order by grouped variable instead of in alphabetical order。我需要产生类似的图形，而黑点实际上是有问题的。我有数据，列名是日期，行用0或1填充，如果值是1，则需要绘制点。要重现，这是一个小样本（在我的数据集中，有300多个列）：

df <- data.frame(id=c(1,2,3),"26April1970"=c(0,1),"14August1970"=c(0,1,0))

我需要在x轴上绘制日期，将id与州匹配，并显示值为1的点。有人可以帮忙吗？

解决方法

也许您正在寻找这个：

Average

输出：

尝试一下：

plot_data = df %>% 
  ## put data in long format
  pivot_longer(-id,names_to = "colname") %>%
  ## keep only 1s
  filter(value == 1) %>%
  ## convert dates to Date class
  mutate(date = as.Date(colname,format = "%d%B%Y"))
plot_data
# # A tibble: 2 x 4
#      id colname      value date      
#   <dbl> <chr>        <dbl> <date>    
# 1     2 14August1970     1 1970-08-14
# 2     3 26April1970      1 1970-04-26


## plot
ggplot(plot_data,aes(x = date,y = factor(id))) +
  geom_point()

使用此数据：

df <- data.frame(id=c(1,2,3),"26April1970"=c(0,1),"14August1970"=c(0,1,0),check.names = FALSE)

ggplot2 r r