小编LC-*_*ist的帖子

几个月前,我正在探索RStudio设置,并启用了RStudio项目的版本控制界面,但由于我没有Xcode或命令行开发工具,每次打开RStudio时都会弹出一个弹出窗口," 'git'命令需要命令行开发工具,"并希望我安装它们.

弹出窗口截图

我知道Xcode占用了大量的存储空间,我的MacBook空间非常有限,所以我不想安装它们.现在已经好几个月了,我的忍耐力也越来越差.我真的希望这个弹出窗口停止.如何阻止此消息出现？

我尝试过的事情:在Git/SVN设置中禁用版本控制并重新启动,关闭所有项目和脚本并重新启动,重新安装/更新RStudio和R.

我expression()在我的绘图的 x 轴标签中使用在我的度量名称上创建一个平方根符号，以指示数据已使用平方根转换进行了转换。但是，我的度量名称（“CES-D”）中有一个连字符。当我把它写在 中时expression()，连字符变成一个减号或短划线字符，周围有空格。

qplot(1:10, 1:10) + 
    labs(x = expression(sqrt(CES-D~scores)), 
         y = "CES-D scores")

请注意，x 轴和 y 轴标签中的连字符是不同的。在 x 轴标签中，它看起来像“CES 减去 D 分数”的平方根。

如何在expression()for 文本中创建常规连字符？

我读到有人有一个类似的问题（ggplot2 和 facet_grid ：为每个图添加最高值）但我仍然无法解决我的问题。

以这个为例：

data.frame(x=rnorm(100),y=rnorm(100),z=rep(c("A","B"))) %>% ggplot(aes(x,y)) + geom_point() + facet_wrap(~z)

我只想标记每个图中的最大 y 值点。我想使用，+ geom_label_repel(aes(label=y))但我最终标记了所有点。

我还尝试了+ geom_label(data=.[.$y==max(.$y),], aes(label=y))我认为.应该是管道运算符左侧参数的占位符的地方，但这样做是行不通的。

奇怪的注意事项：我也想在不将数据框分配给全局环境中的变量的情况下执行此操作，因此我使用了管道运算符。我们可以在不分配任何变量的情况下做到这一点吗？

在 R 中为我的 (gg) 绘图使用 geom_label 时，我注意到文本上方的空间比下方的空间大。如何将文本对齐到标签框的中间？

x <- data.frame(x = c("Being not", "Creative"), y = c(0.5, 1), text = c(543,12345))

g <- ggplot(data=x, aes(x, y)) + geom_bar(stat = 'identity', fill=c("red4","cornflowerblue"))

g + geom_label(aes(y = -Inf, label = text), vjust = -2)

# increasing `label.padding` here to exaggerate the white space
g + geom_label(aes(y = -Inf, label = text), vjust = -2, label.padding = unit(1, "lines")

我希望我的文本在多面躲避条形图中的每个条形上方居中对齐。

# setup
library(ggplot2); library(tidyverse)
data("iris")

# graph
iris %>% group_by(Species) %>% 
mutate(Petal_Group = ifelse(Petal.Width < median(Petal.Width), "Short", "Long")) %>% 
mutate(Sepal_Group = ifelse(Sepal.Width < median(Sepal.Width), "Short", "Long")) %>% 
group_by(Petal_Group, Sepal_Group, Species) %>% 
summarise(mean.Sepal.Length = mean(Sepal.Length)) %>% 
mutate(asterisks = "***") %>% 
ggplot(aes(x = Petal_Group, y = mean.Sepal.Length)) + 
    geom_col(aes(fill = Species), position = "dodge") + 
    geom_text(aes(label=asterisks, group = Species), position = position_dodge(width = 1)) + 
    facet_grid(~Sepal_Group, labeller = label_parsed) + 
    theme(legend.position = "bottom", panel.background = element_blank(), panel.border = element_rect(colour = "black", …