相关疑难解决方法(0)

我有一个图,其中x轴是标签很长的因子.虽然可能不是理想的可视化,但现在我想简单地将这些标签旋转为垂直.我已经用下面的代码想出了这个部分,但正如你所看到的,标签并不完全可见.

data(diamonds)
diamonds$cut <- paste("Super Dee-Duper",as.character(diamonds$cut))
q <- qplot(cut,carat,data=diamonds,geom="boxplot")
q + opts(axis.text.x=theme_text(angle=-90))

我可以找到将图例和轴标签对齐的选项ggplot,但不能找到刻度线标签.

是否可以将这些标签与图形图框右对齐,但是左对齐与最长标签的起点齐平,还是与整个图形边界设置一定距离？

例:

set.seed(1)
library(ggplot2)
axisLabels.x <- c("This is a longer label", 
              "Short label", "Short label","Short label","Short label",
              "This is again a longer label")
labels.wrap  <- lapply(strwrap(axisLabels.x,50,simplify=F),paste,collapse="\n") # word wrap
gg <- data.frame(x=LETTERS[1:6], y=sample(1:10,6))
ggplot(gg) +
  geom_bar(aes(x,y, fill=x), stat="identity")+
  scale_x_discrete(labels=labels.wrap)+
  scale_fill_discrete(guide="none")+
  labs(x="",y="Response")+
  coord_flip()

通缉:

我知道在创建ggplot图之后,我可以theme_get()用来返回所有主题元素的细节.这对于搞清楚诸如此类strip.text.x的事情非常有帮助.但我有两件事我无法弄清楚:

1)在下面的ggplot图形中,主题项的名称是什么,表示短语"由土拨鼠扔掉的木材的百分比",因为我想将其调整为更大的字体:

2)如何重新格式化y轴标签以读取10%,20,...而不是.1,.2,......

我有一个问题,我有重叠的轴标签,似乎无法找到解决方案来解决这个问题.

p <- ggplot(data=Data,aes(x=Indicator,y=Numeric,group=Expenditure_group,shape=Expenditure_group,colour=Expenditure_group))+geom_point()+geom_line()

有没有办法解决这个问题,以便没有重叠？

在从右到左的语言（例如阿拉伯语和希伯来语）中，如何调整ggplot2文本元素的文本方向？请注意，我不是在谈论对齐（由 控制hjust，而是direction: rtl;在呈现文本的实际方向（相当于 CSS ）。因此，这不是这个问题的复制。

这是一个可重现的最小示例：

library(ggplot2)
library(tibble)

example1 <- tribble(
  ~item,
  "??? ???? ????"
)

# or as ordinary data frame, to avoid 'tibble' dependency
example1 <- data.frame(item = "??? ???? ????")

ggplot(example1, aes(item)) + 
  geom_bar() + 
  theme(axis.text.x = element_text(size = 25))

我放大了轴文本 x 来说明我的意思。代码生成以下图表，注意问号在文本的右侧，我希望它出现在文本的左侧。在 tibble 中没example1问题（即使它看起来“相反”，但问号结束了句子。）