0

编辑：这是数据：

date<-c("20130107", "20130109", "20130111", "20130111", "20130113", "20130114", "20130114", "20130122", "20130125", "20130125", "20130128")
ID<-c("Blue","Red","Red","Red","Red","Red","White","Green","Black","Purple","Purple")
date_ID<-c("20130107 Blue", "20130109 Red", "20130111 Red", "20130111 Red", "20130113 Red", "20130114 Red", "20130114 White", "20130122 Green", "20130125 Black", "20130125 Purple", "20130128 Purple")
perc_yes<-c(-0.10394265, -1.00000000, -1.00000000, -1.00000000, -1.00000000, -1.00000000, -0.40425532, -0.09297913, -1.00000000, -0.17864924, -0.12353401)
perc_no<-c(0.8960573, 0.0000000, 0.0000000, 0.0000000, 0.0000000, 0.0000000, 0.5957447, 0.9070209, 0.0000000, 0.8213508, 0.8764660)
data<-data.frame(date,ID,date_ID,perc_yes,perc_no)

我有一个看起来像这样的数据框：

    date        ID          date_ID     perc_yes    perc_no
1   20130107    Blue    20130107 Blue   -0.10394265 0.8960573
2   20130109    Red     20130109 Red    -1.00000000 0.0000000
3   20130111    Red     20130111 Red    -1.00000000 0.0000000
4   20130111    Red     20130111 Red    -1.00000000 0.0000000
5   20130113    Red     20130113 Red    -1.00000000 0.0000000
6   20130114    Red     20130114 Red    -1.00000000 0.0000000
7   20130114    White   20130114 White  -0.40425532 0.5957447
8   20130122    Green   20130122 Green  -0.09297913 0.9070209
9   20130125    Black   20130125 Black  -1.00000000 0.0000000
10  20130125    Purple  20130125 Purple -0.17864924 0.8213508
11  20130128    Purple  20130128 Purple -0.12353401 0.8764660

它列出了日期、ID，然后是日期和 ID，它们是如何分组的，百分比是和百分比否。我想按日期和 ID 制作一个按时间顺序排列的条形图，如果它们在同一日期但不同的 ID，它们将被组合在一起。是的百分比是负数，因为我希望它们直接落在否的百分比下方的负 y 方向。

我尝试了 barplot 没有成功，因为有多个数据点和堆叠。有没有办法在绘图函数中添加多个条形图点，例如使用 lines() ？我将如何绘制数据？使用 ggplot 会更好（我有点不熟悉）？

4

1 回答 1

0

我想ggplot2可能更灵活，但我不知道。也许以下 - 仅使用barplot- 可能会有所帮助：

#turn `data$date` to actual date
data$date <- as.Date(data$date, format = "%Y%m%d")

#sort by date
data <- data[order(data$date),]

#`space` argument of barplot; 
#to group together same dates based on their difference in days
#see ?diff.Date
space. <- diff(data$date) + 0.5
space. <- c(space.[1], space.)

#plot no's
barplot(data$perc_no, names.arg = paste0(data$date, "\n", data$ID), cex.names = 0.7, 
        ylim = c(range(c(data$perc_yes, data$perc_no))),
        col = rgb(1,0,0,1/3), space = space.)

#plot yes'
barplot(data$perc_yes, col = rgb(0,0,1,1/3), , space = space., add = T)

情节看起来像：

条形图

于 2013-10-28T18:38:16.877 回答