R语言学习——散点图和折线图-Toy模板网

这篇具有很好参考价值的文章主要介绍了R语言学习——散点图和折线图。希望对大家有所帮助。如果存在错误或未考虑完全的地方，请大家不吝赐教，您也可以点击"举报违法"按钮提交疑问。

a <- read.table('/Users/zhangzhishuai/Downloads/24 lesson24 R主成分分析/24_pca/BMI.txt', header = T,sep = '\t', row.names = 1)
a
# 散点图
plot(
  a$weight, a$height, # 读xy
  type = 'p', # 代表画的是点，l代表直线,b既有点又有线，n代表空
  main = 'weight vs height',
  xlab = 'weight', # x轴标签
  ylab = 'height', # y轴标签
  ylim = c(160,180), # y范围
  xlim = c(55,75), # x轴范围
  col = 'red', # 颜色
  pch = 19 # 形状
)

index = order(a$weight,decreasing = F) # 对x轴排序获取索引
data=a[index,]
# 折线图
plot(
  data$weight, data$height, # 读xy
  type = 'l', # 代表画的是点，l代表直线,b既有点又有线
  main = 'weight vs height',
  xlab = 'weight', # x轴标签
  ylab = 'height', # y轴标签
  ylim = c(160,180), # y范围
  xlim = c(55,75), # x轴范围
  col = 'red', # 颜色
  pch = 19 # 形状
)

# 线和点都有
plot(
  data$weight, data$height, # 读xy
  type = 'b', # 代表画的是点，l代表直线,b既有点又有线
  main = 'weight vs height',
  xlab = 'weight', # x轴标签
  ylab = 'height', # y轴标签
  ylim = c(160,180), # y范围
  xlim = c(55,75), # x轴范围
  col = 'red', # 颜色
  pch = 19 # 形状
)

# 加折线
male = data[data$gender=='male',]
female = data[data$gender=='female',]
plot(
  female$weight,female$height,
  type = 'b',
  main = 'weight vs height',
  xlab = 'weight', # x轴标签
  ylab = 'height', # y轴标签
  ylim = c(160,180), # y范围
  xlim = c(55,75), # x轴范围
  col = 'red', # 颜色
  pch = 19 # 形状
) 
lines(male$weight,male$height,col='blue',type = 'b') # 在图上加线

# 制定颜色和形状，分组 
color = ifelse(data$gender=='male','blue','red')
shape = ifelse(data$gender=='male',19,21)
plot(
  data$weight, data$height,
  type = 'b',
  main = 'weight vs height',
  xlab = 'weight', # x轴标签
  ylab = 'height', # y轴标签
  ylim = c(160,180), # y范围
  xlim = c(55,75), # x轴范围
  col = color,
  pch = shape
)
legend('topleft',legend = c('male','female'),col = c('blue','red'),pch = c(19,21))
# 图上加文字
text(58, #文字的横坐标
     166, # 文字的纵坐标
     'Cindy')
# 图上加直线
abline(
  v=65, # v指画垂直线，横坐标为65
  col='red',
  lty = 3, # 控制线类型
  lwd=3 # 控制线宽度
)
abline(
  h=170, # h代表水平线
  col = 'green',
  lty=4,
  lwd=2
)
# 图上加线性拟合直线
result = lm(height~weight, data)
summary(result)
abline(result,col='black')
text(60,178,'pvalue=0.0122\nR-squared=0.7815')

# 图片保存
pdf(file='/Users/zhangzhishuai/Downloads/24 lesson24 R主成分分析/24_pca/scatter_line2.pdf',
    width = 10, # 宽度
    height = 7 # 高度
    )
dev.off() # 关掉pdf，一定要关掉

BMI.txt
name height weight gender BMI
tom 180 75 male 23.1481481481481
cindy 165 58 female 21.3039485766759
jimmy 175 72 male 23.5102040816327
sam 173 68 male 22.7204383708109
lucy 160 60 female 23.4375
lily 165 55 female 20.2020202020202文章来源地址https://www.toymoban.com/news/detail-533221.html

到了这里，关于R语言学习——散点图和折线图的文章就介绍完了。如果您还想了解更多内容，请在右上角搜索TOY模板网以前的文章或继续浏览下面的相关文章，希望大家以后多多支持TOY模板网！