真减号在ggplot2中的X轴可变标签上

Question

我正在寻找一种方法来在ggplot2中的图形中获得真正的减号。

生成数据：

squareZone

现在使用包含减号的名称重命名因子

score <- c(rnorm(8, 20, 3), rnorm(8, 35, 5))
gene <- factor((rep(c(1,2), each = 8)))
df <- data.frame(gene, score)

现在在ggplot2

中绘制数据框图

require(plyr)

df$gene <- mapvalues(df$gene, from = c(1,2), to = c("Gene -", "Gene +"))

现在注意减号不够宽。这真是一个冲动。如何让ggplot2显示真正的减号？即使是冲刺也会。

Answer 1

您可以使用Unicode en dash 字符而不是连字符：

<activity
        android:name=".MainActivity"
        android:label="@string/app_name"
        android:launchMode="singleTop"
        android:exported="true">
           ... 
</activity>

给出了：

"Gene \u2013"

标准连字符如下所示：

"Gene –"  

因此，请在代码中将连字符更改为短划线：

"Gene -"

获得以下情节：

Answer 2

这个怎么样？你当然可以根据自己的喜好选择或留下粗体。

score <- c(rnorm(8, 20, 3), rnorm(8, 35, 5))
gene <- factor((rep(c(1,2), each = 8)))
df <- data.frame(gene, score)


require(plyr)

df$gene <- mapvalues(df$gene, from = c(1,2), to = c("Gene -", "Gene +"))

Now graph the dataframe in ggplot2

cellMeansDF <- aggregate(score ~ gene, df, mean)

require(ggplot2)

plot1 <- ggplot(cellMeansDF, aes(gene, score)) +
  geom_bar(stat = "identity", position = "dodge", size = 0.1) + 
  xlab("") + 
  theme(axis.text.x = element_text(family="mono", face="bold", color = "black", size = 15))

plot1

您可以在此处找到完整的字体列表： http://www.cookbook-r.com/Graphs/Fonts/

字体和其他element_text选项将决定此字符的显示方式。这是您的字体选择的图形摘要：