24大数据 12-1 条形图

r 复制代码
if(FALSE)
{
  "
  题1：某调研机构统计了2026年第一季度智能手机市场份额数据，
  华为占28%，小米占24%，OPPO占18%，vivo占15%，苹果占10%，
  其他占5%。
  1.要求标签同时显示名称和百分比；
  图形标题为"2026年第一季度智能手机市场份额"；
  添加颜色样本标注；添加45度角、密度为15的底纹
  2.使用plotrix包绘制3D饼图，
  标题为"2026年第一季度智能手机市场份额"，
  同时显示平台名称和百分比，扇形分离度为0.08。
  "
}
#普通饼图绘制
info =c(28,24,18,15,10,5) 
names=c("华为","小米","OPPO","vivo","苹果","其他")
cols = c("#66BB6A","#42A5F5","#FFA726","#FF1493","#EF5350","#26C6DA")
piepercent = paste(names,round(100*info/sum(info)),"%")
pie(info,labels = piepercent,main="2026年第一季度智能手机市场份额",col=cols,
    angle=45,density=15)
legend("topright",names,cex=0.8,fill=cols)
#加载包
install.packages("plotrix")
library(plotrix)
#3D饼图绘制
info =c(28,24,18,15,10,5) 
names=c("华为","小米","OPPO","vivo","苹果","其他")
cols = c("#66BB6A","#42A5F5","#FFA726","#FF1493","#EF5350","#26C6DA")
piepercent = paste(names,round(100*info/sum(info)),"%")
pie3D(info,labels = piepercent,main="2026年第一季度智能手机市场份额",
      col=cols,explode = 0.08,family = "SimHei")
if(FALSE)
{
  "
  barplot(H,xlab,ylab,main, names.arg,col,beside,horiz)
  参数说明：
  H:向量或矩阵，包含图表用的数字值，每个数值表示矩形条的高度。
  xlab:x 轴标签。
  ylab:y 轴标签。
  main:图表标题。
  names.arg:每个矩形条的名称。
  col:每个矩形条的颜色。
  beside:beside=FALSE(默认)代表条形图堆叠展示，beside=TRUE代表并排展示
  horiz:horiz=FALSE(默认)代表垂直条形图，horiz=TRUE代表水平条形图
  
  题1：某水果店一周苹果销量，周一30个，周二25个，周三35个，周四28个，
  周五40个，周六50个，周日45个。
  要求：
  1.绘制垂直条形图，标题为"一周苹果销量"，条形并排展示
  2.x轴标签"星期"，y轴标签"销量（个）"
  
  题2：某高中三个年级男生和女生人数如下：
  高一 男生45人 女生42人
  高二 男生48人 女生46人
  高三 男生52人 女生50人
  要求：
  1.绘制堆叠条形图，展示各年级总人数及性别构成
  2.标题为"各年级总人数及性别构成"，x轴为"年级"，y轴为"人数"
  "
}
Apple=c(30,25,35,28,40,50,45)
mains="一周苹果销量"
xl="星期"
yl="销量（个）"
cols = c("#4A0E4E","#6B1D68","#8E3A8E","#B05CB0","#D28AD2","#E8B5E8","#F5DCF5")
barplot(Apple,main=mains,xlab=xl,ylab=yl,col=cols)

people=matrix(c(45,42,48,46,52,50),2,3)
mains="各年级总人数及性别构成"
xl="年级"
yl="人数"
cols = c("#6B1D68","#F5DCF5")
barplot(people,beside=FALSE,main=mains,xlab=xl,ylab=yl,col=cols)