R画图怎么添加文本标签？

相似文件 换一批

是 否 +2 论坛币

k人 参与回答

经管之家送您一份

应届毕业生专属福利!

求职就业群

赵安豆老师微信：zhaoandou666

经管之家联合CDA

送您一个全额奖学金名额~ !

立即领取

感谢您参与论坛问题回答

经管之家送您两个论坛币！

+2 论坛币

老师好，我想在图一的点旁边加上具体的金额，用的text，这么写的，一直不对，哪里的问题呢？请老师们指教

扫码加我 拉你入群

请注明：姓名-公司-职位

以便审核进群资格，未注明则拒绝

分享0 收藏0 回帖

关键词：Text TeX ext

不贴代码没法重现你的问题，仔细看帮助 ?text

x<-plot(total,type='b',cex=1.2,col='red',xlab='月/2018年',ylab='月销售额',main='月销售额随日期的变化')
y<-total
text(x,y,total)先给text的x参数赋值  如上，然后你那个y就应该加一组数据  如 text(x,y+(0.1e+08),total)
我也是新手  我也遇到这个问题 你看看把这个加进去看行不

Handsomeyun 发表于 2018-8-17 13:36
不贴代码没法重现你的问题，仔细看帮助 ?text

图片上有代码啊

低调叔叔 发表于 2018-8-17 14:27
x

attach(mon)
options(scipen=200)
x<- plot(total,type="b",cex=1.2,col="red",xlab = "月/2018年",ylab = "月销售额",
     main = "月销售额随日期的变化")
y<- total
text(x,y+(0.1e+08),total)
detach(mon)


不行，报错了，Error in rep_len(x, ny) : cannot replicate NULL to a non-zero length

阿璇tian 发表于 2018-8-17 15:40
attach(mon)
options(scipen=200)
x

你直接加text 不会自动对应的 你要把text（x,y）里面的x,y 对应你的plot 里面的x y才行，这text 相当于在你的plot图表上加一个图层而已 你要的就是把它们的X Y轴对应就解决了

阿璇tian 发表于 2018-8-17 15:40
attach(mon)
options(scipen=200)
x

# 先赋值原始图表 用于下面的text函数对应输出图表
weizhi<-barplot(m,main = '呵呵呵呵',xlab='年份',ylab='数据',col=colors,,names.arg = y,beside= TRUE,ylim = c(0,16))
#命名图表名
png(filename = '啊哈哈2.png')
#输出图表
barplot(m,                                    #data llai来源于矩阵m
        main = '呵呵呵呵',                    #标题名
        xlab='年份',                          #x轴坐标名
        ylab='数据',                          #y轴坐标名
        col=colors,                           #颜色来源于向量colors
        names.arg = y,                        #每组数据名来自向量y
        beside= TRUE,                         #是否堆叠
        ylim = c(0,18),                       #y轴坐标范围0-18 ,当ylim=c()时系统自动调整  
        xlim = c(0,35),                       #x轴坐标分为0-35（默认一条形为1单位，间距1单位）,当xlim = c()时系统自动调整
        cex.axis = 1.5,                       #y坐标轴标尺数值字体大小为1.5倍大小（默认为1倍）（0,5,10,15）
        border='red',                         #条形边框为红色‘red’ 默认为黑色
        cex.names = 1.1 ,                     #x轴坐标轴分组字体大小位1.1倍（默认1倍）（2012年，2013年...）
        axis.lty = 1,                         #x轴刻度调整（默认为0，默认情况下，该轴不会被绘制）用于分类轴的轴和刻度线（默认水平）
        offset = 0 ,                          #条形图向上下方向移动0单位，负数向下移动，正数向上移动              
        legend.text = c(regions),             #简单的设置图例（颜色对应的名称）
        args.legend=                          #详细设置图例 如下
          list(x=35,y=17,      #设置图例左上角起始位置坐标（35,17）
               bty="n",        #设置图例边框（'y'为有边框，'n'为无边框，默认为'y'）
               horiz=F,        #设置图例参数的方向(逻辑符 FALSE或F 为竖向  TRUE或T 为横向，默认竖向）
               cex=0.6         #设置图例大小为 0.6 倍，默认1倍
               )
        )
# text 函数为外加在原图表函数的参数图表
text(x=weizhi,y=m+0.5,              #设置数据位置坐标x=weizhi+0(表示左右偏移为0),y=m+0.5（向上移动0.5的y标尺单位）
     labels = ff3,                  #设置数据源为ff3（ff3矩阵行列必须和矩阵m一致）
     cex=0.8,                       #数据大小为0.8倍（默认1倍）
     srt = 45,                      #数据逆旋45度
     col='red'                      #数据颜色为红色“red”
     )

低调叔叔 发表于 2018-8-17 15:53
# 先赋值原始图表 用于下面的text函数对应输出图表
weizhi

解决了，谢谢

day %>%
  ggplot(aes(x = date, y = total,group=1)) +
  geom_line(lty=1,col="red",cex=0.8) +geom_point(pch=16,cex=0.8,col="blue")+
  theme_tq() +
  labs(title = "销售额随时间的变化")


我画出来的图，横轴是日期，日期太多了，都挤在了一起，请问怎么把横轴改一下？

阿璇tian 发表于 2018-8-17 16:57
day %>%
  ggplot(aes(x = date, y = total,group=1)) +
  geom_line(lty=1,col="red",cex=0.8) +geom_po ...

你这种情况是X轴的标题太大了 可以改变字体的大小（用cex.names=0.5, 这个是x轴坐标轴分组字体大小为0.5倍），也可以用 参数 las=3​     # 3 竖坐标横坐标都名都是竖向显示，0为都横向显示，1 竖坐标竖向显示横坐标横向显示， 2  竖坐标横向显示横坐标竖向显示
自己试试   我ggplot还在学习中 不知道加哪里合适