r - 使用 `+` 运算符将徽标添加到 ggplot 页脚
问题描述
所以,我想在我的 ggplot 中添加一个徽标页脚,但我想通过一个可以使用+
运算符的函数来实现,所以我可以这样做:qplot(1:10, 1:10) + add_mylogo()
我可以用这个得到我想要的:
library(magick)
library(ggplot2)
mylogo <- image_scale(image_read("https://upload.wikimedia.org/wikipedia/commons/f/f7/Stack_Overflow_logo.png"), "180")
qplot(1:10, 1:10) + labs(caption="")
grid::grid.raster(mylogo, x = .97, y = .02, just = c('right', 'bottom'), width = unit(1.2, 'inches'))
产生:
我的问题是我想用+
它把它添加到情节中。
所以我尝试了这个:
library(cowplot)
library(magick)
library(ggplot2)
mylogo <- image_scale(image_read("https://upload.wikimedia.org/wikipedia/commons/f/f7/Stack_Overflow_logo.png"), "380")
qplot(1:3, 1:3)+ labs(caption="") +
draw_image(mylogo, x=3, y = .2, hjust=.7, vjust=0, scale = .5, clip=TRUE)
产生:
所以现在我让它与+
操作员一起工作,但我不知道如何使用任何类型的相对定位。我看到这篇关于使用相对定位的帖子annotate
并尝试过,但它不起作用
qplot(1:3, 1:3)+ labs(caption="") +
draw_image(mylogo, x = -Inf, y = Inf, hjust=.7, vjust=0, scale = .5, clip=TRUE)
Error in if (rasterRatio > vpRatio) { :
missing value where TRUE/FALSE needed
因此,第一个选项 usinggrid
与相对定位一起使用,但不适用于+
运算符,第二个选项 usingcowplot
与+
运算符一起使用,但不适用于相对定位。有没有办法两者兼得?
解决方案
推荐阅读
- react-native - React Native Router Flux Actions.currentParams 道具
- linux - 如何在 Linux 中合并两个脚本,使用第二个中的一个输出
- python - AWS Athena select查询结果不定期包含数据
- sorting - 按属性对弹性搜索连续结果进行自定义排序
- sql - 在sql server的大表中添加带有udf函数的列有什么更快的方法吗?
- java - 扫描仪无法从控制台读取 int 后的字符串?
- ms-access - 一次更改多条记录的值(字段为布尔类型)
- excel - 使用基于其他列中的值的循环添加/计算多个条件的行
- laravel - 雄辩的 Yajra DataTables orderColumn 不起作用
- php - 使用 API 设置 PayPal IPN URL