在这个问题上,我实际上需要帮助: ggplot2 graphic order by grouped variable instead of in alphabetical order。 我需要产生类似的图形,而黑点实际上是有问题的。我有数据,列名是日期,行用0或1填充,如果值是1,则需要绘制点。要重现,这是一个小样本(在我的数据集中,有300多个列):< / p>
df <- data.frame(id=c(1,2,3),
"26April1970"=c(0,0,1),
"14August1970"=c(0,1,0))
我需要在x轴上绘制日期,将id与州匹配,并显示值为1的点。 有人可以帮忙吗?
答案 0 :(得分:0)
答案 1 :(得分:0)
尝试一下:
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,0,1),
"14August1970"=c(0,1,0), check.names = FALSE)