当前位置: 首页 > news >正文

苏州做网站最好公司推广赚钱平台有哪些

苏州做网站最好公司,推广赚钱平台有哪些,wordpress文章发布到目录,免费免费网站模板0. 说明: 1. 绘制条形图; 2. 添加文本并调整位置; 3. 调整x轴刻度的字体、角度及颜色; 4. 在导出pdf时,如果没有字体,该怎么解决问题; 1. 结果: 2. 代码: library(ggp…

0. 说明:

1. 绘制条形图;
2. 添加文本并调整位置;
3. 调整x轴刻度的字体、角度及颜色;
4. 在导出pdf时,如果没有字体,该怎么解决问题;

1. 结果:

在这里插入图片描述

2. 代码:

library(ggplot2)
library(hrbrthemes)
library(sysfonts) ## 添加字体
library(showtext) ## 显示字体#font_add("Times New Roman", "/Users/zzy/fonts_R/Times_new_roman_bold.ttf") ## 手动添加字体 (字体名称,字体包路径)
pdf("/Users/zzy/Desktop/linshi.pdf", width = 6, height = 5) # 打开图形设备
showtext_begin() dt = data.frame(category = c("A", "B", "C", "D", "E", "F", "G", "H","I","J","K","L","M","N","O","P","Q"),value = c(10, -20, 15, 25, 30, 20, -10, 30,20, 5, -50,-10, 10, 3, 3, 2, -5),groups = c("pos","pos","pos","neg","neg","pos","neg","pos","pos","pos","pos","neg","pos","pos","neg","neg","pos"),text = c("*","","","","**","","","***","","","*","*","","*","*","",""))## 指定特定的顺序
dt$category = factor(dt$category, levels = c("D", "E", "F", "G", "H", "A", "B", "C","I","J","K","N","O","P","Q","L","M"))
## 添加调整位置的列
pos_list = c()
for (v in dt$value){if (v>0){pos_list = c(pos_list, 0.5)}else{pos_list = c(pos_list, 1)}
}
dt$pos_list = pos_list## 添加颜色列
dt$diycolor = c(rep("red",8), rep("blue", 3), rep("green", 6))## 绘图
ggplot(data=dt, aes(x=category, y=value, fill=groups))+geom_bar(stat = "identity")+ ## 绘制条形图,stat使用identity,显示原始数据geom_text(aes(label=text), color="black", size=8, vjust=dt$pos_list) + ## 添加并调整星号的位置scale_fill_manual(values = c("red", "blue"))+ylab("Value")+theme_classic()+theme(axis.text.x = element_text(angle=45, hjust = 1, vjust=1, color=dt$diycolor), ## 调整 x 坐标轴刻度,旋转,并分组赋予颜色axis.text = element_text(size=15, face ="bold"),  ## x和y坐标轴刻度字体调整axis.title.x = element_blank(), ## 不显示x坐标轴标题axis.title.y = element_text(size=15, face="bold"),legend.position = "none") ## 不显示图例showtext_end() 
dev.off()
http://www.15wanjia.com/news/38123.html

相关文章:

  • wordpress文字添加图片天津优化公司哪家好
  • 厦门成交型网站建设公司如何建立自己的网络销售
  • 班级设计网站建设百度霸屏全网推广
  • dw建设网站教案电商运营助理
  • 国外产品展示网站源码百度登录个人中心官网
  • php实现网站tag标签常见的网络营销模式
  • java做安卓游戏破解版下载网站十大舆情网站
  • 二手交易网站怎么做2023上海又出现疫情了
  • 做网站靠广告能赚钱吗网络推广员有前途吗
  • 热门话题推荐百度的seo关键词优化怎么弄
  • 购物网站的名称和网址永久免费不收费的污染app
  • 网站开发是自己开发还是外包的51网站统计
  • 大连百度网站排名优化博客seo怎么做
  • 网站下载文件怎么做舆情监控系统
  • 血液中心网站建设规范找回今日头条
  • 怎么用cms做网站网站域名备案信息查询
  • 实验室网站建设网络黄页推广软件哪个好用
  • 大连 祥云 网站优化百度seo关键词排名优化
  • 深圳网站制作西安百度网络营销推广
  • 建筑施工图设计天津seo博客
  • 做网站 广告 备案推广计划书怎么写
  • 公司网站开发费用如何做账哪个平台可以接推广任务
  • 网站维护案2345网址导航浏览器
  • 网站编辑如何做北京seo百科
  • 移动网站虚拟主机电商平台的营销方式
  • 网站设计公司青岛最全bt搜索引擎入口
  • 好网站用户体验seo外包公司如何优化
  • 网站开发用什么语言开发的海外seo
  • 手机自适应网站建设深圳今日头条新闻
  • 做网站banner课程封面实体店引流推广方法