我想自动从具有特定标签的ggplot图表中删除geom_label层。我的代码是：
library(ggplot2)
library(gginnards)
df <- data.frame(x=1:100, y=runif(100))
gp <- ggplot(df, aes(x=x, y=y)) +
geom_point() +
geom_label(aes(x=20, y=-Inf, label="A"), vjust = -0.2) +
geom_label(aes(x=40, y=-Inf, label="B&
浏览 25提问于2019-08-19得票数 0
回答已采纳
我使用ggplot2包和geom_col()函数绘制了列。我使用geom_label()函数在每一列的顶部放置了一个标签，其中包含各自的值。在geom_label()函数中，我修改了文本大小(size = 3)和标签位置(vjust = -1)，但结果显示标签在所需位置，但文本偏离了中心。 如何解决此问题？ library(ggplot2)
Factor <- c('A', 'B')
Y <- c(5, 10)
DF <- data.frame(Factor, Y)
ggplot(data = DF,
aes(x = Fa
浏览 50提问于2021-10-12得票数 0
我试图用ggplot2将每个扇区内的每个值的标签放在饼图中
我的数据：
simulpie1 <- data.frame(
segtos = c("Perfil 1", "Perfil 2", "Perfil 3", "Perfil 4"),
percents = c(26, 34, 30, 10)
)
每个扇区的颜色：
c("steelblue", "magenta", "orange", "lightgreen")
所以..。
26 - steelbl
浏览 6提问于2022-10-03得票数 0
回答已采纳
1回答
直方图的标签帮助
、、、
我有一组直方图，并希望将标签放在+- 1的stdev和平均值上。我有台词，但也要标签。我希望标签的底部的直方图与白色背景，所以字体是可阅读的直方图颜色。
library(dply)
library(ggplot2)
a = runif(1000,1,100)
b = runif(1000,1,100)
c = runif(1000,1,100)
amount = c(a,b,c)
cat = c(rep("a",1000), rep("b",1000), rep("c",1000))
hist.data = data.frame(amou
浏览 3提问于2020-05-29得票数 2
回答已采纳
我试图使用ggplot2更改与条形图中特定数据点相关联的文本标签的颜色。
下面是原始代码--使用mtcar作为示例：
mtcars_gear_percentage_by_make <- mtcars %>%
tibble::rownames_to_column(var = "car") %>%
tidyr::separate(car, c("make", "model"), sep = "\\s") %>%
dplyr::filter(make == "Merc" | make
浏览 1提问于2020-07-23得票数 1
回答已采纳
我有一个从SPSS导入R的数据帧，在ggplot2百分比条形图中正确设置y轴的格式时遇到了问题。
我需要将轴范围限制为较小的量，并加长这些条形图。这就是我一直得到的：
以下是上述可视化的代码：
#import packages
library(foreign)
library(ggthemes)
library(stringr)
library(ggplot2)
library(scales)
#read in data
WBGC <- read.spss("2019.07.14_Cleaned.Data.sav", use.value.label=TRUE,
浏览 9提问于2019-07-16得票数 0
我一直试图访问..count的值。在ggplot2中是否存在访问此值的方法？目前，我正收到以下错误：
错误:美学必须是有效的计算统计。有问题的美学:标签=..count.你把你的数据映射到错误的层次了吗？
如何访问以前计算过的值？下面是代码：
transfusion %>%
mutate(Group = ifelse(whether.he.she.donated.blood.in.March.2007 == 0, "Didn't donate", "Donated")) %>%
ggplot(aes(x=Group, fill
浏览 2提问于2020-04-15得票数 1
回答已采纳
1回答
有点像R的新手，所以请原谅我，如果这是一个令人尴尬的简单修复。我正在寻找一种方法来使我的条形图显示ggplot2中分类值的计数。
我收集了一些虚构的样本数据：
ID Age SizeOfTumor RemovalSurgery
1 <30 Small No
2 <30 Large Yes
3 <30 Large No
4 <30 Small No
5 <30 Small No
6 <30 Large Yes
7 30-60 Large No
8 30-60 Large Yes
9
浏览 3提问于2016-12-13得票数 4
回答已采纳
是否有任何可能的方法来更改facet_wrap变量的标签，如下所示。例如，我希望它读取condition: 4，condition: 6，condition: 8，而不是cyl: 4，cyl: 6，cyl: 8。当然，我可以通过重命名变量来做到这一点，但这不是我想要的。这是一个简单得多的自定义函数版本，我不能随意重命名一个变量。
另一种说法是，我是否有任何自由来标记我喜欢的facet_wrap？有点像ggplot2中的x美学变量在数据帧(mtcars)中可以有一些名称(例如cyl)，但我仍然可以使用labs(x = "cylinder")将其替换为我自己的名称)。我想要在fac
浏览 16提问于2018-02-19得票数 7
回答已采纳
2回答
我在做个圈套。X轴是因素，标签很长.
我不能缩短标签，它们尽可能短。
我有兴趣制作它，这样标签就可以垂直偏移。我的偏好是，在0高度处有每一个奇数标签，在距x轴更远的高度2单位上，每一个偶数标号。
我已经在这里看过了，，但是在解释正在发生的事情时遇到了实际的困难，因此无法对此做出有用的版本。
有什么主意吗？
(下面的代码示例..。我不太擅长在这里格式化代码，看起来.( sry.)
library("ggplot2");
stack <- data.frame(value =rnorm(n = 1000, sd = 2, mean=34)); stack$fact <
浏览 4提问于2015-11-04得票数 3
回答已采纳
为了进行动态可视化，例如在仪表板中，我想要显示标签颜色(百分比或总数)，具体取决于它们在黑色或白色中的真实值。
正如您从下面的reprex中看到的，我将标签的颜色手动更改为黑色，以获得更好的访问性。
是否有自动实现标签颜色的was？如果数据随时间变化，对应百分比最高的标签应该始终是黑色的。
library(ggplot2)
library(dplyr)
set.seed(3)
reviews <- data.frame(review_star = as.character(sample.int(5,400, replace = TRUE)),
浏览 4提问于2022-02-07得票数 2
回答已采纳
我试图制作一个相关热图，其中x轴被移动到顶部使用cowplot::switch_axis_position。我有不同长度的轴标签，我希望标签左对齐(或者更确切地说是底部对齐，因为它们旋转90度)。虽然我设法使标签对齐，但它们被移到了更高的位置。
library(reshape2)
library(ggplot2)
library(cowplot)
# some toy data
set.seed(1)
mydata <- mtcars[, c(1, 3, 4, 5, 6, 7)]
# to show difference in justification better, make n
浏览 8提问于2016-02-17得票数 5
回答已采纳
2回答
我希望复制这篇文章中看到的第一个情节的设计：
这是从1，但在那本书中没有代码显示的数字。
链接中的这个数字没有图例，而是显示标签' in‘、'MO’等等。以交错的方式放置在各自代表的直线的高度上。我知道如何使用ggplot2制作绘图，但我遇到的具体问题是编写代码，使图形右侧的标签像这样。有人能示范一下怎么做吗？
卡尔，丹尼尔和琳达·皮克尔。2009年。用微地图可视化数据模式。波卡·罗坦，佛罗里达州CRC出版社
浏览 5提问于2017-03-09得票数 4
回答已采纳
3回答
在ggplot2中，我不知道如何在条形图中以每个闪开的条形图为中心显示标签。
我知道可以使用position = "dodge"避开条形图，而且为了让标签居中显示在每个条形图上，我需要在geom_text()或geom_label()命令中添加position = position_dodge(width = 1)。
但由于某些原因，它无法工作(见下图)。我还添加了我的数据和代码。
df <- structure(list(Measure = structure(c(2L, 2L, 2L, 2L, 2L, 2L,
2L, 2L, 2L, 2L, 1L, 1L, 1L,
浏览 7提问于2017-06-29得票数 3
我想将标签添加到图形和列的红线上。我设法将标签添加到列或行中，但我无法同时做到这两点。
有人能帮忙吗？
测试数据
ebit ebit_margin year
Company1 2421 0.054 2019
Company1.1 1928 0.049 2018
Company1.2 1915 0.050 2017
Company1.3 2135 0.060 2016
Company1.4 1534 0.041 2015
数据
test <- structure(list(
浏览 2提问于2020-05-28得票数 1
回答已采纳
1回答
我喜欢在ggplot2中为分类数据制作相对频率条形图的简单性，但我很难将百分比值作为标签添加到它们上面。有没有人有简单的解决方案？
library(ggplot2)
df <- data.frame(responses=c(rep("A",5),
rep("B",15),
rep("C", 25)))
ggplot(df, aes(responses))+
geom_bar(aes(y=..prop..*100, grou
浏览 10提问于2021-06-01得票数 0
我跟踪，尝试用geom_label复制文本标签。但我收到了一条错误信息
“找不到函数geom_label”
。?geom_label也说没有这样的功能。我又查了两台电脑，得到了同样的错误信息。它们都具有R3.22、RStudio 0.99.489或纯R命令。ggplot2的1.01版安装了install.packages(ggplot2)，.I没有从谷歌那里找到线索。因此，在编写任何文档之前，geom_label似乎已经从最新的ggplot2中删除了。
我的问题是:用什么代替geom_label，它在带框的背景中生成漂亮的文本标签？
下面是ggplot2文档中的代码，这些文档应该生成下
浏览 1提问于2015-12-11得票数 6
回答已采纳
1回答
我想在ggplot2中错开x轴标签。令人惊讶的是，我尝试过的东西成功了(感谢@Hadley和一致的语法！)
c <- ggplot(mtcars, aes(factor(cyl)))
c <- c + geom_bar()
c + theme(axis.text.x = element_text(vjust = c(0, 0.1, 0.2)))
但其结果似乎是，专用于保证金的垂直空间的数量变得不必要地大。有什么小贴士可以把这个放回原处吗？
浏览 2提问于2014-12-15得票数 5
回答已采纳
下面的代码，
library(ggplot2)
load(url("http://murraylax.org/datasets/cps2016.RData"))
ggplot(df, aes(industry, usualhrs, fill=as.factor(sex))) +
stat_summary(geom = "bar", fun = mean, position = "dodge", width=0.7) +
stat_summary(geom = "errorbar", fun.data = mean_se,
浏览 0提问于2020-05-22得票数 2
回答已采纳
我试图用R和ggplot叠加栏显示特定语料库中音素的相对频率。我无法显示每一个音素的标签在酒吧顶部的白色背景和黑线。标签以透明的背景出现！
这是我正在使用的data.frame：
phones <- c("i", "e", "ə", "a", "o", "u", "p", "t̪", "t", "t͡ʃ", "ʈ͡ʂ", "k", "m", "n̪", &
浏览 5提问于2022-01-10得票数 1
回答已采纳
我正试图用ggplot()绘制一系列Likert类型的问题的回复。我计算了每个答复的比例(“强烈同意”、“同意”等)。对每个问题使用dplyr，现在想要在一个叠加的条形图中绘制比例(每个问题一条)。下面的代码给出了我到目前为止的想法。
library(ggplot2)
dat <- data.frame(Question = "Q1",
Response = LETTERS[1:5],
freq = c(.01, .03, .11, .35, .5),
off
浏览 1提问于2019-04-13得票数 1
回答已采纳
1回答
我试图将标签添加到一个相当简单的条形图(即geom_bar)中。position_dodge()在geom_text()中校正标签的垂直间距，而不是水平间距。我怎样才能让ggplot2把我的标签正确地分散在条子上？
library(tidyr)
library(grid)
library(ggplot2)
data = read.table('temp.dat', header=T)
data <- gather(data, SOA, RT, X0:X1000)
data$ResponseCondition = as.factor(data$ResponseCond
浏览 1提问于2015-11-13得票数 1
回答已采纳
theme(title = element_text())**，编辑:这个问题是由于我在需要修改** theme(plot.title(element_text())**.时错误地试图修改如果我仔细检查[theme()*]，我会注意到这一点的。
原文：
改变标题垂直对齐也改变了x和y轴标签的位置。这是个虫子吗？还是我曲解了主题词()的功能？我正在运行ggplot2版本0.9.3.1
最小可重现性示例。
require(ggplot2)
set.seed(12345)
x <- rnorm(100,10,0.5)
y <- x * 3 + rnorm(100)
df <- da
浏览 3提问于2013-10-23得票数 10
回答已采纳
使用ggplot2，我通常希望能够像这样添加一个数据点，
ggtern(df, aes(X, Y, Z, value = VALUE), aes(x, y, z)) +
geom_point(aes(fill = VALUE), size = 2, stroke = 0, shape = 21) +
scale_fill_gradient(low = "red",high = "yellow", guide = F) +
scale_color_gradient(low = "red",high
浏览 4提问于2018-05-21得票数 3
我正在尝试创建一个散点图，用ggplot在圆圈内嵌入标签。有没有什么函数可以在圆圈内标注？？
提前谢谢。
浏览 1提问于2020-11-22得票数 0
3回答
我正在尝试使用ggplot2来创建和标记散点图。我绘制的变量都进行了缩放，以便以标准差(1,2,3,4，与平均值相差1，2，3，4)为单位绘制水平轴和垂直轴。我希望能够做的是，只对那些超出平均值标准偏差限制的元素进行标记。理想情况下，此标签将基于另一列数据。
有没有办法做到这一点？
我已经浏览了在线手册，但我还没有找到任何关于为绘图数据定义标签的内容。
感谢您的帮助！
谢谢!
BEB
浏览 2提问于2009-11-30得票数 12
回答已采纳
1回答
是否有一种简单的方法可以用离散的值移动轴上的滴答，使它们处于图的极限和两个标签之间的中间？
我的代码：
p2 <- ggplot(diamonds, aes(cut, price)) +
geom_boxplot() +
theme_bw() +
theme(panel.grid = element_blank())
p2 +
geom_vline(xintercept = c(1.5, 2.5, 3.5, 4.5),
colour = "gray92") +
scale_x_discrete(expand = c(0,0.
浏览 1提问于2022-10-20得票数 0
回答已采纳
在下面的三元图中，轴外的标签被裁剪。我找不到避免这种情况的ggtern()或ggplot2设置。对于基本的R图形，我只需要使用xpd=TRUE。
我的数据：
modes <-
structure(list(Mode = c("Literature", "Poetry", "Table", "Map",
"Thematic map", "Graph", "Art", "Diagram", "Statistical analysis",
浏览 0提问于2018-10-23得票数 3
回答已采纳
我正在编写一个自定义函数，用ggplot2制作饼图。我写的代码运行得很好，但是当我在函数体内部启动它时，它停止工作。你知道为什么会发生这种情况吗？
dataframe <- as.data.frame(cbind(gender = c("male", "female", "female", "female", "male", "female", "male"),
pet = c("dog", "cat
浏览 5提问于2018-01-20得票数 1
回答已采纳
我从一个时间序列创建了一个流图，需要2条垂直线标记为文本“点燃”和“熄灭”。
考虑到这是一个时间序列，我真的很难让标签显示出来。
以下是到目前为止的ggplot代码：
ggplot(airDataClean, aes(x = Date, y = maxParticulates, fill = Location)) +
geom_vline(aes(xintercept = as.numeric(ymd("2019-10-26"))), color='red') +
geom_vline(aes(xintercept = as.numeric(ymd(
浏览 3提问于2022-01-16得票数 0
示例数据集：
n value
100000 20
200000 30
300000 25
400000 40
500000 12
以下代码：
require(ggplot2)
data <- read.table("test", sep = "\t", header = TRUE,)
ggplot(data, aes(n, value)) +
geom_point(aes(n,value)) + geom_line(aes(n,value))
dev.off()
将产生以下输出：
但是，我希望得到以下输出：
浏览 16提问于2017-06-25得票数 1
我想要创建一个带有ggplot的堆叠条形图，并在其中添加(居中)标签:当值太低时，我不想显示标签。
df<-data.frame(x=unlist(strsplit("AAAABBBB","")),
z=unlist(strsplit("ABCDABCD","")),
y=c(40,5,30,10,50,60,5, 40))
# this works fine
library(ggplot2)
ggplot(df, aes(x=x, y=y, fill = z)) + geom_
浏览 1提问于2018-01-10得票数 5
回答已采纳
当尝试使用ggplot2将geom_label()框的左上角与(0,10)坐标对齐时，文本不再居中(见图)。可以有一个左上角对齐的方框，里面有居中的文本吗？ ? library(ggplot2)
data=data.frame(x=0:10,y=0:10)
ggplot(data,aes(x,y)) + geom_point() + geom_label(x=0,y=10,hjust=0,vjust=1,label="TEXT",size=8)
浏览 37提问于2021-03-31得票数 2
回答已采纳
7回答
我正在用ggplot2开发一个图形，其中我需要将文本叠加到其他图形元素上。根据文本底层元素的颜色，可能很难阅读文本。有没有办法在具有半透明背景的边界框中绘制geom_text？
我可以用plotrix做到这一点：
library(plotrix)
Labels <- c("Alabama", "Alaska", "Arizona", "Arkansas")
SampleFrame <- data.frame(X = 1:10, Y = 1:10)
TextFrame <- data.frame(X = 4:7,
浏览 9提问于2011-10-05得票数 21
回答已采纳
2回答
考虑下面的data.frame和图表：
library(ggplot2)
library(scales)
df <- data.frame(L=rep(LETTERS[1:2],each=4),
l=rep(letters[1:4],2),
val=c(96.5,1,2,0.5,48,0.7,0.3,51))
# L l val
# 1 A a 96.5
# 2 A b 1.0
# 3 A c 2.0
# 4 A d 0.5
# 5 B a 48.0
# 6 B b 0.7
# 7 B c 0.3
# 8
浏览 0提问于2018-04-27得票数 14
回答已采纳
我对geom_label有个问题。当我将geom标签添加到我的代码中时，标签就会出现在图形的上方(行和条)。我希望标签位于文本的同一个位置(geom_text)。
这是我的一般数据：
structure(list(Dia = structure(c(1583452800, 1583539200, 1583625600,
1583712000, 1583798400, 1583884800, 1583884800, 1583884800, 1583971200,
1584057600, 1584057600, 1584144000, 1584230400, 1584316800, 15844
浏览 2提问于2020-03-20得票数 2
回答已采纳
1回答
我用下列数据制作了一张图表：
library(dplyr)
library(forcats)
library(ggplot2)
library(scales)
mydf <- tibble(type = c(rep(c(rep("TypeA", 4), rep("TypeB", 4)), 2)),
Ratings = rep(c("Top", "Middle", "Low", "NA"), 4),
Prop = c(0.62, 0.
浏览 2提问于2016-12-09得票数 1
回答已采纳
1回答
旋转标签居中的标准技巧是使用vjust。当轴在底部时，它会按预期工作：
library( ggplot2 )
gg <- ggplot( mtcars, aes(hp, mpg) ) + geom_point() + theme_bw()
gg + theme( axis.text.x=element_text(angle=90, vjust=0.5) )
蓝色轮廓显示标签相对于轴记号正确居中。
然而，当x轴位于顶部时，我似乎无法达到同样的效果：
gg + theme( axis.text.x=element_text(angle=90, vjust=0.5) ) +
sc
浏览 21提问于2020-05-07得票数 3
回答已采纳
1回答
我不知道如何在angle中使用aes geom_label。我以为下面的代码会将标签旋转45，但它没有。
library(ggplot2)
ggplot(data = mtcars[1:4,]) +
geom_label(aes(x = mpg, y = qsec, label=disp), angle = 45)
浏览 0提问于2017-12-21得票数 10
回答已采纳
1回答
我想要创建一个饼图，一些标签显示在一定的位置，以表明一个比例测试是否重要与否。我已经成功地创建了一个基本的饼图，并粘贴了下面的代码。我还发布了所需的结果(使用MS软件创建)，并希望得到任何帮助，我可以得到任何创建这个情节。
library(tidyverse)
# defining the dataframe
df <-
data.frame(
condition = c('x', 'y', 'z'),
cat = rep(c('a', 'b'), 3),
freq = c(60
浏览 0提问于2018-03-21得票数 2
回答已采纳
1回答
我试图在R中的100%叠加条形图中添加频率信息(而不是百分比)的标签。
我在把标签放在正确的条形图上有问题。我在用下面的代码。我认为position=position_fill(vjust=-0.5)会对标签进行适当的居中，但很明显，仅仅这样做是不够的。
library(ggplot2)
df <- matrix(c('A','A','A','A','B','B','B','B','p','q','r','
浏览 6提问于2021-12-20得票数 2
回答已采纳
我是一个初学者，所以如果我的问题太基本，我道歉。我输入第一个ggplot2命令已经4天了。我在发帖之前读过，但这篇文章似乎集中在制作渐变rect上，我已经做了。
目标：我想强调哪些美国总统的失业率超过10000 (单位并不重要，因为我的重点是绘制图表的能力。
presidential <- subset(presidential, start > economics$date[1])
ggplot(economics) +
geom_rect(
aes(xmin = start, xmax = end, fill = party),
浏览 2提问于2016-08-27得票数 4
这是我的数据
mydf <- structure(list(NOME = c(1, 1, 1, 1, 1), PLAYER.POSITION = c("Lateral",
"Lateral", "Lateral", "Lateral", "Lateral"), variables_bar = structure(5:1, .Label = c("ACCELERATIONS.Z6",
"ACCELERATIONS.Z5", "ACCELERATIONS.Z4&
浏览 6提问于2022-04-09得票数 0
回答已采纳
3回答
如何将标签放在饼图之外，使标签位于正确的位置？
Product <- c("Product1","Product2","Product3","Product4","Product5","Product6","Product7")
Value <- c(1000000,200002,599996,1399994,2199992,2999990,3799988)
df <- data.frame(Product,Value)
df$Label <- paste(P
浏览 0提问于2018-01-10得票数 11
回答已采纳
我有这个R代码来生成一个垂直分组条形图：
library(ggplot2)
exampledf <- data.frame(
subchar = c("facebook", "twitter", "snapchat", "male", "female"),
superchar = c("social media", "social media", "social media", "gender", "gender"),
浏览 2提问于2019-09-19得票数 4
回答已采纳
数据和最终图的示例如下：
df <- data.frame(player = c("A", "A", "A", "A", "A", "A", "A", "A", "A", "A",
"B", "B", "B", "B", "B", "B", "B", "B"
浏览 0提问于2021-06-10得票数 1
我已经生成了一个条形图，标签在条形图的顶部和标准错误栏之上。但是，我想旋转标签，使它们垂直堆叠，而不是水平。我该怎么做？
下面是使示例可复制的数据：
example <- data.frame(var = c(1,1,1,1,1,1,1,1,2,2,2,2,2,2,2,2,3,3,3,3,3,3,3,3),
resp = c(1,2,3,4,5,6,7,8,2,4,5,10,3,3,2,9,8,7,6,5,4,3,2,3))
以下是我尝试过的：
library(dplyr)
library(ggplot2)
# Convert to fact
浏览 3提问于2022-08-19得票数 1
回答已采纳
我有一个带有多个主题的小平面图，作为下面的示例代码。我可以将数据框中的字母数字添加到绘图中的每个主题吗？
k <- structure(list(subject = c("subject1", "subject2", "subject1",
"subject2", "subject1", "subject2", "subject1", "subject2"),
value = c(0.878597435209789, 0.017629011
浏览 6提问于2021-03-07得票数 0
回答已采纳
由于某些原因，我似乎无法使用stat_count将正确的比例标签添加到ggplot中。下面的代码返回100%显示所有类别的标签，即使我使用的是..prop..。我应该用别的东西代替stat_count吗？
library(tidyverse)
diamonds %>%
ggplot(aes(color, fill=cut)) +
geom_bar(position = 'fill') +
stat_count(aes(label= scales::percent(..prop..)),
geom = 'text',
浏览 2提问于2018-08-30得票数 2
回答已采纳
1回答
我有一个堆叠的柱状图，如下所示： library(ggplot2)
Year <- c(rep(c("2006-07", "2007-08", "2008-09", "2009-10"), each = 4))
Category <- c(rep(c("A", "B", "C", "D"), times = 4))
Frequency <- c(1, 1, 8, 32, 216, 431, 319, 368, 423, 645, 234
浏览 16提问于2020-07-09得票数 0
回答已采纳
扫码
添加站长 进交流群
领取专属 10元无门槛券
手把手带您无忧上云
相关资讯
热门标签
云服务器
ICP备案
对象存储
即时通信 IM
实时音视频活动推荐
腾讯云开发者
