R语言绘制简单条形图

本文档详细介绍了如何利用R语言对2000个消费者网购情况进行分析,包括性别、网购次数和满意度的数据。通过read.csv()读取数据,使用table()生成一维表,并用barplot()函数绘制了性别、网购次数和满意度的条形图,展示了不同类别间的分布情况。在图形绘制过程中,调整了图形边距、字体大小和填充效果,使得图表更加清晰易读。

摘要生成于 C知道 ,由 DeepSeek-R1 满血版支持, 前往体验 >

自己用了一个csv文件
要求:
数据:data3_1.csv.根据2000个消费者网购情况的调查数据,分别绘制性别,
网购次数和满意度的条形图。其结果如下所示
在这里插入图片描述
(1) 使用 read.csv()读取数据到 data3_1 中,可以采用绝对路径或者相对路
径形式读取文件。
(2) 在 R 控制台查看 data3_1 的内容
(3) 查看 data3_1 的模式
(4) 使用 attach()函数绑定列表 data3_1
(5) 使用 table()生成性别的一维表到 table1
(6) 使用 table()生成网购次数的一维表到 table2
(7) 使用 table()生成满意度的一维表到 table3
(8) 使用 layout()进行页面布局,按行存放图形
(9) 使用 par() 设 置 图 形 的 边 距 和 字 体 大 小 :
par(mai=c(0.6,0.6,0.4,0.1),cex=0.7)
(10) 使用barplot()绘制图(a),参数density=30,angle=0,分别设置填充
密度和密度线的角度。参数 border=”blue”,即边框线设为蓝色。
(11) 使用 barplot()绘制图(b), 参数 density=20,angle=90.
(12) 使用 barplot()绘制图(c),颜色设置自行选择

 text <- read.csv("D:\\R语言\\data3_1.csv",sep=",",header=TRUE)
 text
 

在这里插入图片描述

在这里插入图片描述
在这里插入图片描述
(9) 使用 par() 设 置 图 形 的 边 距 和 字 体 大 小 :
par(mai=c(0.6,0.6,0.4,0.1),cex=0.7)
(10) 使用barplot()绘制图(a),参数density=30,angle=0,分别设置填充
密度和密度线的角度。参数 border=”blue”,即边框线设为蓝色。
(11) 使用 barplot()绘制图(b), 参数 density=20,angle=90.
(12) 使用 barplot()绘制图(c),颜色设置自行选择。

> layout(matrix(c(1,2,3,3),2,2,byrow=TRUE))
> par(mai=c(0.6,0.6,0.4,0.1),cex=0.7)
> > barplot(table1,main="(a)水平条形图",xlab="人数",ylab="性别",horiz=TRUE,density=30,angle=0,border="blue")
> barplot(table2,main="(b)垂直条形图",xlab="网购次数",ylab="人数",horiz=FALSE,density=20,angle=90)
> barplot(table2,main="(C)垂直条形图",xlab="满意度",ylab="人数",col=cm.colors(3))

R语言中barplot()函数的基本语法格式如下:

barplot(height, names.arg = NULL, beside = FALSE,horiz = FALSE, density = NULL, angle = 45,col = NULL, border = par(“fg”),main = NULL, sub = NULL, xlab = NULL, ylab = NULL,xlim = NULL, ylim = NULL, …)
height:向量或矩阵,用来构成条形图中各条的数值。

names.arg:位于条低端的文字标签。

beside: 逻辑值,为FALSE时绘制堆叠图,为TRUE时绘制分组图。

horiz: 逻辑值,为FALSE时,绘制垂直条形图,为TRUE时绘制水平条形图。

density:一个向量值。当指定该值时,条将以斜线填充。即每英寸斜线的密度。

angle:以逆时针方向给出的阴影线的角度。默认为45度。

col:条的填充色。

border:条的边框颜色,如设置为TRUE时,边框颜色将于阴影线的颜色相同。

main:用于指定绘图的主标题。

sub:用于指定绘图的次标题。

xlab, ylab :用于指定x轴和y轴的标签。

xlim, ylim:分别用于指定x轴和y轴的取值范围。

要使用R语言绘制复式条形图,可以按照以下步骤操作: 1. 载入所需的包,如ggplot2: ```R library(ggplot2) ``` 2. 使用ggplot函数创建图形对象,并设置数据来源和映射参数,其中x轴变量为因子型变量(cyl),并使用fill参数将颜色映射到因子变量(cyl): ```R ggplot(data=mtcars, mapping=aes(x=as.factor(cyl),fill=as.factor(cyl))) ``` 3. 使用geom_bar函数添加条形图层,设置stat参数为"count"表示绘制计数条形图,width参数控制条形宽度: ```R geom_bar(stat="count",width=0.5) ``` 4. 使用scale_fill_manual函数设置条形图颜色,其中values参数设置颜色值,以"#RRGGBBAA"格式表示: ```R scale_fill_manual(values=c("#3C5488B2","#00A087B2","#F39B7FB2")) ``` 5. 使用geom_text函数添加条形图的文本,设置stat参数为"count"表示绘制计数条形图,aes函数设置label参数为..count..表示显示计数值,vjust参数控制文本位置,color参数设置文本颜色,size参数设置文本大小: ```R geom_text(stat='count',aes(label=..count..), vjust=1.6, color="white", size=3.5) ``` 6. 使用theme_minimal函数设置图形主题为最小化风格: ```R theme_minimal() ``` 7. 如果希望将x轴和y轴互换,可以使用coord_flip函数: ```R coord_flip() ``` 综合以上步骤,可以使用以下代码绘制复式条形图: ```R library(ggplot2) ggplot(data=mtcars, mapping=aes(x=as.factor(cyl),fill=as.factor(cyl))) + geom_bar(stat="count",width=0.5) + scale_fill_manual(values=c("#3C5488B2","#00A087B2","#F39B7FB2")) + geom_text(stat='count',aes(label=..count..), vjust=1.6, color="white", size=3.5) + theme_minimal() + coord_flip() ```<span class="em">1</span><span class="em">2</span><span class="em">3</span> #### 引用[.reference_title] - *1* *2* *3* [R语言绘制条形图](https://blog.youkuaiyun.com/weifanbio/article/details/116784420)[target="_blank" data-report-click={"spm":"1018.2226.3001.9630","extra":{"utm_source":"vip_chatgpt_common_search_pc_result","utm_medium":"distribute.pc_search_result.none-task-cask-2~all~insert_cask~default-1-null.142^v93^chatsearchT3_2"}}] [.reference_item style="max-width: 100%"] [ .reference_list ]
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值