![](/img/trans.png)
[英]ggplot, nested X-Axis for interaction() factor variables in bar plot
[英]R ggplot bar plot with month on X-axis
我想要一个条形图,在X轴上有数月,在Y轴上有数,并且用二进制列( status
)作为填充。 这是包含错误,警告和我所得到的图的代码。 如何获得正确的图?
library(ggplot2)
# to read in date correctly
setClass("myDate")
setAs("character",
"myDate",
function(from) as.Date(from, format = "%Y-%m-%d"))
csvData <- "id,dt,status
1,2015-12-03,1
2,2015-12-05,1
3,2015-12-05,0
4,2015-11-24,1
5,2015-10-17,0
6,2015-12-18,0
7,2016-06-30,0
8,2016-05-21,1
9,2016-03-31,0
10,2015-12-31,0"
tmp <- read.csv(textConnection(csvData),
colClasses = c("integer", "myDate", "factor"))
tmp$mon <- as.Date(cut(tmp$dt, breaks = "month"))
# The plot must have this time frame on the X-axis
dtLimits <- as.Date(c("2015-01-01", "2016-08-01"))
# This does not work
# since x is a factor here and scale uses date
ggplot(data = tmp, aes(x = as.factor(mon))) +
geom_bar(aes(fill = status)) +
scale_x_date(date_breaks = "1 month",
labels = date_format("%y/%m"),
limits = dtLimits)
# Error: Invalid input: date_trans works with objects of class Date only
# wrong plot with warning message
ggplot(data = tmp, aes(x = mon)) +
geom_bar(aes(fill = status)) +
scale_x_date(date_breaks = "1 month",
labels = date_format("%y/%m"),
limits = dtLimits) +
theme(axis.text.x = element_text(angle = 90, hjust = 1))
# Warning message:
# position_stack requires non-overlapping x intervals
最后一条语句产生的图是这样的:
以下代码生成正确的图,但没有所需的限制,并且缺少计数为0的月份。
ggplot(data = tmp,
aes(x = as.factor(format(mon, format = "%y/%m")))) +
geom_bar(aes(fill = status)) +
theme(axis.text.x = element_text(angle = 90, hjust = 1))
在处理日期时,x轴以天为单位。 条形图的宽度设置为数据分辨率的90%,因此在这种情况下,如果不设置width
参数,则每个条形图包含0.9天。 将其更改为30可获得大约一个月的垃圾箱。
ggplot(data = tmp, aes(x = mon)) +
geom_bar(aes(fill = status), width = 30) +
scale_x_date(date_breaks = "1 month",
labels = date_format("%y/%m"),
limits = dtLimits) +
theme(axis.text.x = element_text(angle = 90, vjust = .5))
声明:本站的技术帖子网页,遵循CC BY-SA 4.0协议,如果您需要转载,请注明本站网址或者原文地址。任何问题请咨询:yoyou2525@163.com.