图形添加文本-ggfittext

今天是大年初三,想必小伙伴们都放假在家陪着爸爸妈妈,吃着家乡的饭,和家人一起过节,小编在这里给大家拜个年~祝大家新年新气象,新年好运气有福气,工作顺利,身体健康~
接下来小编向大家介绍一个相对简单的绘图添加文本的R包。
install.packages("ggfittext")  #安装包library(ggfittext)
head(animals)  #查看数据,动物相关数据

 

1.在box上添加文本

(1)默认参数绘制

ggplot(animals, aes(x = type, y = flies, label = animal)) +  geom_tile(fill = "white", colour = "black") +  geom_fit_text()   #默认参数

(2)改变文字的大小

ggplot(animals, aes(x = type, y = flies, label = animal)) +  geom_tile(fill = "white", colour = "black") +
  geom_fit_text(grow = TRUE)       #字的大小随数值改变    # reflow=TRUE ,文字重排以适应格子

(3)改变文字的位置

ggplot(animals, aes(x = type, y = flies, label = animal)) +  geom_tile(fill = "white", colour = "black") +  geom_fit_text(place = "topleft", reflow = TRUE)    #topleft文字置于左上  #其他参数topleft, top, topright, right, bottomright, bottom, bottomleft, left,center/middle

2.适用ggplot2的添加文本geom_bar_text()

(1)默认参数

ggplot(altitudes, aes(x = craft, y = altitude, label = altitude)) +  geom_col() +  geom_bar_text()

(2)修改文本显示方式

ggplot(coffees, aes(x = coffee, y = proportion, label = ingredient,                    fill = ingredient)) +  geom_col(position = "stack") +  geom_bar_text(position = "stack", grow = TRUE, reflow = TRUE)     #position = "stack",堆叠展示

(3)坐标轴转换

ggplot(coffees, aes(x = coffee, y = proportion, label = ingredient,                    fill = ingredient)) +  geom_col(position = "dodge") +  geom_bar_text(position = "dodge", grow = TRUE, reflow = TRUE,                place = "left") +                   #position = "dodge"  条形躲避  coord_flip()       #横向转换坐标,把x轴和y轴互换

 

3. 指定box坐标

head(presidential)  #11个US总统任期等相关数据

ggplot(presidential, aes(ymin = start, ymax = end, x = party, label = name)) +  geom_fit_text(grow = TRUE) +  geom_errorbar(alpha = 0.5)    # 添加误差线

统计与绘图

绘制可自定义填充图案的统计图-patternplot

2020-8-28 4:20:31

统计与绘图

同时展现两种数据的--双坐标轴(R语言)

2020-8-28 4:24:48

加入Q群
0 条回复 A文章作者 M管理员
    暂无讨论,说说你的看法吧
个人中心
今日签到
有新私信 私信列表
搜索