如何在画布范围内制作 geom_text 图

问题描述

使用 geom_text 标记散点图的外围点.根据定义，这些点往往靠近画布边缘:通常至少有一个词与画布边缘重叠，使其无用.

很明显，这可以在下面的情况下使用 + xlim(c(1.5, 4.5)) 手动解决:

# 测试df <- data.frame(word = c("bicycle", "tricycle", "quadricycle"),n.wheels = c(2,3,4),效用 = c(10,6,7))ggplot(data=df, aes(x=n.wheels, y=utility, label=word)) + geom_text() + xlim(c(1.5, 4.5))

虽然这并不理想，因为

1. 它不是自动化的，所以如果要生成很多图会减慢过程
2. 这不准确，这意味着单词边缘和画布边缘之间的距离在每种情况下都不相等.

对这个问题的搜索没有发现任何解决方案，Hadley Wickham 似乎对 ggplot2 的

Using geom_text to label outlying points of scatter plot.By definition, these points tend to be close to the canvas edges: there is usually at least one word that overlaps the canvas edge, rendering it useless.

Clearly this can be solved manually in the case below using + xlim(c(1.5, 4.5)):

# test
df <- data.frame(word = c("bicycle", "tricycle", "quadricycle"),
                 n.wheels = c(2,3,4),
                 utility = c(10,6,7))
ggplot(data=df, aes(x=n.wheels, y=utility, label=word))  + geom_text() + xlim(c(1.5, 4.5))

This is not ideal though, as

1. It's not automated, so slows down the process if many plots are to be produced
2. It's not accurate, meaning the distance between the edge of the word and the edge of the canvas is not equal in every case.

Searches for this problem reveal no solutions, and Hadley Wickham seems to be content with labels being cut in half in ggplot2's help page (I know Hadley, they're just an examples ;)

解决方案

ggplot 2.0.0 introduced new options for hjust and vjust for geom_text() that may help with clipping, especially "inward". We could do:

ggplot(data=df, aes(x=n.wheels, y=utility, label=word))  +
  geom_text(vjust="inward",hjust="inward")

这篇关于如何在画布范围内制作 geom_text 图的文章就介绍到这了，希望我们推荐的答案对大家有所帮助，也希望大家多多支持！