Warning: file_get_contents(/data/phpspider/zhask/data//catemap/2/ionic-framework/2.json): failed to open stream: No such file or directory in /data/phpspider/zhask/libs/function.php on line 167

Warning: Invalid argument supplied for foreach() in /data/phpspider/zhask/libs/tag.function.php on line 1116

Notice: Undefined index: in /data/phpspider/zhask/libs/function.php on line 180

Warning: array_chunk() expects parameter 1 to be array, null given in /data/phpspider/zhask/libs/function.php on line 181
使用ggplot2的R中的堆叠条形图_R_Ggplot2 - Fatal编程技术网
Fatal编程技术网
  • r/
  • 使用ggplot2的R中的堆叠条形图

使用ggplot2的R中的堆叠条形图

r

使用ggplot2的R中的堆叠条形图,r,ggplot2,R,Ggplot2,我正在尝试使用ggplot2创建堆叠条形图。下面是我的数据的样子 Date Full.Page.Ads Total.Pages 11/10/2015 3 24 12/10/2015 10 24 13/10/2015 15 24 这是我试图用来可视化数据的代码 library("ggplot2") library("reshape2")

我正在尝试使用ggplot2创建堆叠条形图。下面是我的数据的样子

Date          Full.Page.Ads Total.Pages
11/10/2015                3          24
12/10/2015               10          24
13/10/2015               15          24
这是我试图用来可视化数据的代码

library("ggplot2")
library("reshape2")

ns <- read.csv("NS.csv")

ggplot(data=ns, aes(x = Date, y = Total.Pages, fill=Full.Page.Ads)) + geom_bar(stat = "identity")

库（“ggplot2”）
图书馆（“重塑2”）

ns在绘图之前，您必须熔化数据。如果希望图形表示Full.Page.Ads相对于总页数的比例，还需要计算Total.Pages和Full.Page.Ads之间的差异。比如：


ns <- data.frame(Date = c("11/10/2015", "12/10/2015", "13/10/2015"),
               Full.Page.Ads = c(3, 10, 15),
               Total.Pages = c(24, 24, 24))

#    Date Full.Page.Ads Total.Pages
# 1 11/10/2015             3          24
# 2 12/10/2015            10          24
# 3 13/10/2015            15          24


ns$not.Full.Page.Ads <- ns$Total.Pages - ns$Full.Page.Ads
ns$Total.Pages <- NULL
ns2 <-melt(ns)

#        Date          variable value
#1 11/10/2015     Full.Page.Ads     3
#2 12/10/2015     Full.Page.Ads    10
#3 13/10/2015     Full.Page.Ads    15
#4 11/10/2015 not.Full.Page.Ads    21
#5 12/10/2015 not.Full.Page.Ads    14
#6 13/10/2015 not.Full.Page.Ads     9

ggplot(data = ns2, aes(x = Date, y = value, fill = variable)) + geom_bar(stat = "identity")



ns有效。谢谢您。你能解释一下这背后的逻辑吗？