广告位联系
返回顶部
分享到

R语言绘制尺子的实现教程

R语言 来源:互联网 作者:秩名 发布时间:2022-01-10 08:44:14 人浏览
摘要

本文使用基本的绘图命令plot、rect、segments、text绘制一把长10厘米的直尺 1、定义基本单位 xcm - 0.07 ycm - 0.07 2、首先使用plot绘制一个空白画布 plot(0:1, 0:1, type = n, axes = F, ann = F) 3、绘制一

本文使用基本的绘图命令plot、rect、segments、text绘制一把长10厘米的直尺

1、定义基本单位

xcm <- 0.07
ycm <- 0.07

2、首先使用plot绘制一个空白画布

plot(0:1, 0:1, type = "n", axes = F, ann = F) 

在这里插入图片描述

3、绘制一个灰色的底作为直尺的影子

rect(0 + 0.2*xcm,0 - 0.2*ycm,0.95 + 0.2*xcm,0.15 - 0.2*ycm, col="gray", border = NA)

在这里插入图片描述

 4、绘制一个白的底作为直尺

rect(0,0,0.95,0.15, col = "white")

在这里插入图片描述 

5、标注刻度

segments(seq(1,11,0.1)*xcm,0,seq(1,11,0.1)*xcm,
c(rep(c(0.5, rep(0.25,4), 0.35,rep(0.25,4)), 10), 0.5)*ycm
)

在这里插入图片描述

6、标注数字以及单位

text(1:11*xcm, 0.6*ycm,0:10,adj = c(0.5, 0))
text(11.3*xcm, 0.6*ycm,"cm",adj = c(0, 0)) 

在这里插入图片描述

这样一个直尺就做好了 


版权声明 : 本文内容来源于互联网或用户自行发布贡献,该文观点仅代表原作者本人。本站仅提供信息存储空间服务和不拥有所有权,不承担相关法律责任。如发现本站有涉嫌抄袭侵权, 违法违规的内容, 请发送邮件至2530232025#qq.cn(#换@)举报,一经查实,本站将立刻删除。
原文链接 : https://blog.csdn.net/weixin_46111814/article/details/122374890
相关文章
  • R语言包的升级与降级问题的介绍
    R语言包的升级与降级 这篇博客只是记录一下在使用偏最小二乘判别分析时遇到的一些问题:暑期实习期间曾自行使用R语言caret包进行机器学
  • R语言绘制尺子的实现教程

    R语言绘制尺子的实现教程
    本文使用基本的绘图命令plot、rect、segments、text绘制一把长10厘米的直尺 1、定义基本单位 xcm - 0.07 ycm - 0.07 2、首先使用plot绘制一个空白画布
  • R语言对数据库进行操作的介绍
    数据是关系数据库系统以规范化格式存储。 因此,要进行统计计算,我们将需要非常先进和复杂的Sql查询。 但R语言可以轻松地连接到许多
  • R语言中ifelse、which、%in%的用法
    ifelse、which、%in%是R语言里极其重要的函数,以后会经常在别的程序中看到。 ifelse ifelse是if条件判断语句的简写,它的用法如下: ifelse(tes
  • R语言-使用ifelse进行数据分组

    R语言-使用ifelse进行数据分组
    数据分组,根据数据分析对象的特征,按照一定的数值指标,把数据分析对象划分为不同的区间部分来研究,以揭示内在的联系和规律性;
  • R语言-如何将list转换为向量?

    R语言-如何将list转换为向量?
    从excel中直接读取的数据为list,如下转换为向量 as.vector(unlist(x)) 补充:R语言基本运算,向量,矩阵,list,数组 1. 基本运算 1.1 加、减、乘
  • R语言中的因子类型的介绍
    一、Factor函数 #函数factor可以把一个向量编码为一个因子,其一般形式为:#factor(x,levels=sort(unique(x),na.last=TRUE),labels,exculde=NA,order=FALSE)#其中
  • R语言UTF-8各种问题的解决方案
    R语言在碰到读UTF-8文件,或者处理UTF-8数据时总是会遇到各种各样的问题,本姑娘也是在碰了n多次壁,被气得吐血好多次之后,终于对这类
  • Rstudio中安装package出现的问题及解决
    Rstudio中安装package问题 一、 install.packages(REmap)无法安装package:错误:无法与服务器建立连接 解决方式:切换下载的镜像 方法一:在Rstudio菜
  • R语言操作X轴日期实例介绍
    R语言操作X轴日期: 需要用到程序包library(lubridate);程序包是在R的安装包C:\R-3.4.4\bin\x64\RGui.exe里根据命令安装的 将日期改为xxxx/xx/01; fir
  • 本站所有内容来源于互联网或用户自行发布,本站仅提供信息存储空间服务,不拥有版权,不承担法律责任。如有侵犯您的权益,请您联系站长处理!
  • Copyright © 2017-2022 F11.CN All Rights Reserved. F11站长开发者网 版权所有 | 苏ICP备2022031554号-1 | 51LA统计