ggplot2:将一个二进制条形图放入一个二进制堆叠条形图
ggplot2是一个基于R语言的数据可视化包，它提供了一套灵活而强大的绘图语法，可以用于创建各种类型的图表，包括条形图、散点图、折线图等。
在ggplot2中，要将一个二进制条形图放入一个二进制堆叠条形图，可以使用geom_bar函数来实现。具体步骤如下：
- 首先，需要准备好包含二进制数据的数据集。假设我们有一个数据集df，其中包含两个二进制变量A和B，可以表示为0或1。
- 使用ggplot函数创建一个绘图对象，指定数据集为df。
library(ggplot2)
p <- ggplot(data = df)- 使用geom_bar函数创建一个二进制堆叠条形图。设置参数stat="identity"表示直接使用数据集中的值作为条形的高度，而不是默认的计数。
p <- p + geom_bar(aes(x = 1, y = A, fill = "A"), stat = "identity")
p <- p + geom_bar(aes(x = 1, y = B, fill = "B"), stat = "identity")- 使用scale_fill_manual函数设置填充颜色，以区分不同的二进制变量。
p <- p + scale_fill_manual(values = c("A" = "blue", "B" = "red"))- 使用coord_flip函数将条形图旋转为水平方向。
p <- p + coord_flip()- 最后，使用labs函数设置图表的标题和坐标轴标签。
p <- p + labs(title = "Binary Stacked Bar Chart", x = "", y = "")完整的代码如下：
library(ggplot2)
# 准备数据集
df <- data.frame(A = c(0, 1, 1, 0, 1),
B = c(1, 0, 1, 0, 0))
# 创建绘图对象
p <- ggplot(data = df)
# 创建二进制堆叠条形图
p <- p + geom_bar(aes(x = 1, y = A, fill = "A"), stat = "identity")
p <- p + geom_bar(aes(x = 1, y = B, fill = "B"), stat = "identity")
# 设置填充颜色
p <- p + scale_fill_manual(values = c("A" = "blue", "B" = "red"))
# 旋转为水平方向
p <- p + coord_flip()
# 设置标题和坐标轴标签
p <- p + labs(title = "Binary Stacked Bar Chart", x = "", y = "")
# 显示图表
print(p)这样就可以得到一个将一个二进制条形图放入一个二进制堆叠条形图的可视化结果。在这个图表中，每个条形代表一个二进制变量，不同的颜色表示不同的变量。通过堆叠在一起，可以直观地比较两个二进制变量的分布情况。
腾讯云相关产品和产品介绍链接地址：
- 腾讯云产品：云服务器（https://cloud.tencent.com/product/cvm）
- 腾讯云产品：云数据库 MySQL版（https://cloud.tencent.com/product/cdb_mysql）
- 腾讯云产品：人工智能机器学习平台（https://cloud.tencent.com/product/tiia）
- 腾讯云产品：物联网开发平台（https://cloud.tencent.com/product/iotexplorer）
- 腾讯云产品：移动推送服务（https://cloud.tencent.com/product/tpns）
- 腾讯云产品：对象存储（https://cloud.tencent.com/product/cos）
- 腾讯云产品：区块链服务（https://cloud.tencent.com/product/tbaas）
- 腾讯云产品：腾讯会议（https://cloud.tencent.com/product/tcmeeting）
- 腾讯云产品：腾讯会议（https://cloud.tencent.com/product/tcmeeting）
- 腾讯云产品：腾讯会议（https://cloud.tencent.com/product/tcmeeting）
相关·内容
1回答
我想移除这个条形图右边的白色条子，但是我不明白怎么做。这是一个图表：
下面是我使用的代码：
library(ggplot2)
ggplot(data = df2, aes(x=`neighbourhood`, y="1", fill=`room_type`)
geom_bar(position="fill", stat="identity") +
coord_flip() +
scale_
浏览 4提问于2022-05-17得票数 1
回答已采纳
2回答
对于不同的产品，我试图在一个堆叠的条形图中绘制每个销售渠道的销售额，使用R中的ggplot，我绘制了x轴上的产品和y轴上绘制的金额。填充是通道。
我的代码如下所示：
ggplot(df, aes(x=products, y=sales, fill=channel)) + geom_bar(stat = "identity")
有四个不同的销售渠道(网站，电子邮件，街头销售，直接信息)。我面临的问题是，对于不同的产品，使用不同的情节颜色，因为并不是所有的产品都使用每个销售渠道进行销售。重要的是要知道，我想把每一个产品都画成一个单独的图。例如，product1已经使用了所有四个销售
浏览 0提问于2018-11-08得票数 1
回答已采纳
在这里，我希望一个酒吧的情节保持颜色与类别。数据可能会不时变化--所以条形图的顺序可能会改变--但是我想保留(这里)队名的颜色。
teams <- c("Riverside Reds", "Oakland Oranges", "Yucaipa Yellows", "Glendale Greens", "Bakersfield Blues", "Irvine Indigos", "Vacaville Violets")
rainbow_colors <- c("re
浏览 0提问于2017-11-27得票数 0
回答已采纳
2回答
我有以下样本数据：
library(tidyverse)
df <- data.frame(col=rep(c("A_B", "A_C", "A_D",
"B_A", "C_A", "D_A",
"B_C", "B_D",
"C_B", "D_B",
浏览 3提问于2022-03-22得票数 0
回答已采纳
1回答
我的电子邮件的标签被剪掉了。你知道我怎么解决这个问题吗？
代码：
library(ggplot2)
p<-ggplot(data=english, aes(x=V1, y=V3))+
geom_bar(stat="identity", fill="steelblue") +
labs(x="Letter", y="Frequency") +
geom_text(aes(label=V3), vjust=0.4, hjust=-0.1, size=3.5)
p + coord_flip()
图表：
浏览 8提问于2018-02-27得票数 3
回答已采纳
我正在创建一个按年龄类别、按性别分列的工作实习人数R的人口金字塔式条形图。在前面的步骤中，我总结了按年龄和性别分组的数据，以获得实习次数。然后，我将男性计数乘以-1，以获得正确的图形格式。
在我手动更改geom_bars的颜色之前，一切都很好。当我手动设置它们或使用scale_fill_manual选项时，我的图表会旋转。也不能完全搞清楚如何改变字体。
这段代码起作用
#WEs
pyramidWE2 <- ggplot(WE2, aes(x = Age, y =n, fill = Gender)) +
geom_bar(data = subset(WE2, Gender == &
浏览 0提问于2019-04-11得票数 1
回答已采纳
3回答
我正试着根据geom_bar样品的数量给ifelse(total > 90, "#FC2D00", "#008EFC")涂上颜色。换句话说，如果total > 90，则条形图应该是red，而total <90则应该是蓝色。
type = c("aa", "bb", "cc")
total = c(110, 90, 89)
df = data.frame(type, total)
df %>%
ggplot2::ggplot(aes(x = type, y = total)) +
g
浏览 4提问于2020-11-20得票数 2
回答已采纳
library(ggplot2)
library(reshape)
df1<-data.frame(id=c("a","b","c","d"),
var1=c(2,4,4,5),
var2=c(5,6,2,6),
var3=c(5,3,2,1))
df1.m <- melt(df1,id.vars = "id")
ggplot(df1.m, aes(x = id, y = value,fill=variab
浏览 1提问于2018-04-05得票数 0
我目前在R(用ggplot2创建)中有这个barplot
我需要这样做：
我试着使用RColorBrewer包，但它没有工作，因为在共同反应调色板的最大颜色是11。有什么想法吗？
pal <- brewer.pal(11,"RdYlGn")
ggplot(data = bm_mod, aes(x = bm_mod$country, y = bm_mod$V)) +
geom_bar(stat = "identity", colour = pal, fill = pal) + coord_flip() +
labs(y="
浏览 2提问于2013-11-21得票数 4
回答已采纳
2回答
我有一个关于用ggplot2在R中创建堆叠条形图的问题。我想要创建的是一个堆叠的条形图，每个条子都放在另一个的“顶部”。
x = c(100,200,400,600,800,1000,1250,1500)
y1 = c(1,2,3,4,5,6,7,8)
y2 = c(8,7,6,5,4,3,2,1)
data <- data.frame(x,y1,y2)
ggplot(data, aes(x, y1,label=x)) +
geom_bar(stat="identity", fill="blue", position="stack")
浏览 2提问于2014-10-13得票数 0
回答已采纳
1回答
R version 3.1.1 (2014-07-10) Platform: i386-w64-mingw32/i386 (32-bit)
我正在和ggplot2一起做一个条形图。其目的是为数据提供堆叠和遮挡条形图的组合。我的问题是包含一个图例，它包含两个层或分别显示它们。
数据：
df <- structure(list(year = structure(c(1L, 2L, 3L, 4L, 5L, 6L, 7L,
1L, 2L, 3L, 4L, 5L, 6L, 7L), .Label = c("2008", "2009", "2010"
浏览 1提问于2015-03-10得票数 2
2回答
我认为堆叠列是ggplot2下的默认操作，但在我的绘图中似乎没有发生这种情况。我正在尝试获取两个向量(可能具有相同的长度，也可能不具有相同的长度)，并将它们绘制在与堆叠条形图相同的图中。下面是一个简单的例子：
z1<-c(500, 300, 200, 100)
z2<-c(800, 100, 50)
names(z1)<-c("a", "b", "c", "d")
names(z2)<-c("a", "c", "e")
z1<-as.data.fra
浏览 3提问于2017-01-07得票数 1
回答已采纳
1回答
我正在制作一个紫色和黄色的堆叠条形图，但这两种颜色不会出现。这是我的代码：
ggplot(df_group, aes(x = COLOUR, y =COUNT, fill = GROUP,label=GROUP)) +
geom_bar(position="stack", stat = "identity") +
scale_fill_manual("Flower Colour", values = c("Purple" = "mediumpurple", "Yellow" = "G
浏览 3提问于2022-05-20得票数 0
我试图创建一个分组堆叠条形图面板，但图例不会自动出现在下面的“年龄”。我怎样才能显式地添加这个传说？
library(ggplot2)
# create the dataset
species=c(rep("A" , 2) , rep("B" , 2))
strain=rep(c("i" , "ii" ),2)
age=rep(c(1,2,3,4),4)
count=abs(rnorm(16 , 0 , 15))
data=data.frame(species,strain,age,count)
ggplot(data,aes
浏览 1提问于2018-10-09得票数 2
回答已采纳
1回答
library(ggplot2)
df2 <- data.frame(supp=rep(c("VC", "OJ"), each=3),
dose=rep(c("D0.5", "D1", "D2"),2),
len=c(6.8, 15, 33, 4.2, 10, 29.5))
head(df2)
ggplot(data=df2, aes(x=dose, y=len, fill=supp)) +
geom_bar(stat="identi
浏览 0提问于2017-05-01得票数 6
回答已采纳
我已经用ggplot2包中的ggplot() + geom_bar()函数创建了一个条形图。我还使用了coord_flip()来反转条形图的方向，使用geom_text()来在每个条形图的顶部添加值。有些条形图有不同的颜色，因此在图表后面有一个图例。我得到的结果是一张图片，一半被图表占据，一半被图例占据，由于图表太小，最长的条形图顶部的值被切断。 关于如何放大图表和缩小图例的大小，以便条形图的值不被截断，有什么想法吗？ 谢谢 这是我在虚构数据上的代码： labels <- c("A","B","C","D","E&
浏览 17提问于2020-06-20得票数 2
回答已采纳
2回答
我想制作一个反向金字塔图，其中的条彼此堆叠在一起，具有不同的宽度。
首先，我有一个堆叠的条形图，如下代码示例所示
library(dplyr)
library(ggplot2)
sample <- data_frame(x=c(1, 1, 1, 1, 2, 2, 2, 2),
y=c(5,10,15, 20, 10, 5, 20, 10),
w=c(1, 2, 3, 4, 1, 2, 3, 4),
group=c("a", "b",
浏览 4提问于2017-08-15得票数 3
回答已采纳
1回答
我正试图使用ggplot2在R中制作一个100%的堆叠条形图，并获得真实计数的数据标签，而不是一个百分比。当我尝试这样做的时候，我会得到一些小的条形图，标签就在图的另一边。我可以得到一个条形图和计数在酒吧，我知道这里已经有很多问题，如何得到百分比，但我没有找到任何答案，我正在寻找的。这是为了工作，但是一些模拟数据类似于：
dat <- read.table(text = "assessment User N
missingcomma Sara 5
notcapitolized Sara 2
noindent Sara 1
missingcomma Jason 1
notcapit
浏览 1提问于2017-09-27得票数 1
下面是一些R代码，它使用ggplot生成一个条形图，在这里，条形图以x = 0为中心，向左和向右移动。我想把文字放在y轴(艺名)上，把它们放在中间，左边和右边。下面是创建图形的R代码：
library(dplyr)
libary(ggplot2)
# Read data
email_campaign_funnel <- read.csv("https://raw.githubusercontent.com/selva86/datasets/master/email_campaign_funnel.csv")
# X Axis Breaks and Labels
br
浏览 0提问于2019-01-15得票数 3
回答已采纳
我已经创建了下面的图表
有以下代码；
p <- ggplot(df, aes(x=100*prop_select, y=(1500-s_meanResponse), fill=product)) +
geom_bar(stat='identity', width=2, alpha=.6, color='#333333') +
coord_cartesian(xlim = c(0, 5)) +
coord_flip()
print(p)
我试图故意重叠这些条子。我想知道如何更改每个条形图的z索引(深度)。我试图通过简单地重新排序
浏览 1提问于2014-07-29得票数 4
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
实时音视频
对象存储
即时通信 IM活动推荐
腾讯云开发者
