这里有一个快速可视化GGPLOT2和plotly通过@KppatelPatel 所建议的ggplotly输出将是你的图形用户界面上的互动情节,具有悬停信息例如Month: Apr-16; Percentage: 2.34; Gender: F
library(ggplot2)
library(plotly)
p <- ggplot(dat, aes(x=Month, y=Percentage, fill=Gender)) +
geom_bar(stat="identity", position = position_dodge()) +
facet_wrap(~Age, ncol=2)
ggplotly(p)
的data.frame dput对所提供的数据:
dat <- structure(list(Month = structure(c(2L, 2L, 2L, 2L, 1L, 1L, 1L,
1L, 3L, 3L, 3L, 3L), .Label = c("Apr-16", "Mar-16", "May-16"), class = "factor"),
Age = structure(c(1L, 1L, 2L, 2L, 1L, 1L, 2L, 2L, 1L, 1L,
2L, 2L), .Label = c("0-20", "21-30"), class = "factor"),
Gender = structure(c(1L, 2L, 1L, 2L, 1L, 2L, 1L, 2L, 1L,
2L, 1L, 2L), .Label = c("F", "M"), class = "factor"), Percentage = c(1.01,
0.46, 5.08, 4.03, 2.34, 3.55, 6.78, 9.08, 3.56, 3, 2.08,
10)), .Names = c("Month", "Age", "Gender", "Percentage"), class = "data.frame", row.names = c(NA,
-12L))
编辑:
要绘制时间的逻辑顺序,转换本月至今格式:
library(dplyr)
dat$Time <- dat$Month %>%
as.character %>%
paste("01-", .) %>%
as.Date(., format= "%d-%b-%y")
与x=Time
绘制的相同ggplot上述会给你以下几点:
可以ggplotly&GGPLOT2使用,并且组由年龄和性别的颜色,那么你可以绘X =月和y =百分比。 gglotlot会给你想要的交互。 ggplot2将创建好的方式来创建情节 –