具有负值问题的水平条形图

Question

我有以下数据

d1  d2
a   -9.278
b   -5.582
c   -5.266
d   -5.01
e   -3.833

我有这段代码：

library(ggplot2)

dat<-read.csv("input.csv",sep=",")
dat1<-dat[,-3]

ggplot(dat11,aes(x =  d1, y = d2)) + 
geom_bar(fill="#e34a33",width=0.34,stat="identity") + 
scale_x_discrete(limits=dat1$d1) + 
  coord_flip() +
  theme_bw() + theme(legend.position = "none", panel.grid.major=element_blank(),
                     panel.grid.minor=element_blank(),legend.key = 
element_blank(),axis.title.x = element_text(size=15),axis.text.x = 
element_text(size=16), axis.title.y = 
element_text(size=15),axis.text.y=element_text(size=17),
panel.border = element_rect(colour = "black",size=0.7))

此代码给出的情节如下

此图的问题栏位于右侧，但应朝向左侧，x轴应从0到-10开始。任何机构都可以为这个问题提出建议吗

Answer 1

我知道当值为负时，Dim f As New Form2 With {.TopLevel = False, .AutoSize = False, .FormBorderStyle = FormBorderStyle.None} Panel1.Controls.Add(f) f.Show() 无法很好地处理水平条纹（这就是旋转图像从左向右移动的原因）。以下几乎是获得所需内容的黑客，但可能有更好的方法：

ggplot

输出：