制作带有正值和负值的条形图

Question

Having a dataframe like this:

data.frame(names = c("yahoo", "google", "amazon", "aliexpress"), frq = c(3,1,-4,-1))

How is it possible to make a plot to have the positive names into one side and the negative from the other?

Something like this plot

Answer 1

You can use the following code

  library(ggplot2)
  df <- data.frame(names = c("yahoo", "google", "amazon", "aliexpress"), frq = c(3,1,-4,-1))
        
  ggplot(df, aes(x=names, y=frq, fill=names)) + 
  geom_bar(position=position_dodge(), stat="identity") + 
  scale_x_discrete(limits = df$names)+ theme(legend.position="none")+
  xlab("Names") +
  ylab("Frequency")

Update

ggplot(df, aes(x=names, y=frq)) + 
  geom_bar(aes(fill = frq < 0), stat = "identity") + 
  scale_fill_manual(guide = FALSE, breaks = c(TRUE, FALSE), values=c("Green", "red")) + 
  scale_x_discrete(limits = df$names)+ theme(legend.position="none")+
  xlab("Names") +
  ylab("Frequency")

Answer 2

You can just order the factors according to frequency:

library(ggplot2)
h <- data.frame(names = c("yahoo", "google", "amazon", "aliexpress"), frq = c(3,1,-4,-1))

h$names <- factor(h$names, levels = h$names[order(h$frq)])
h$positive <- ifelse(h$frq>0, 1, 0)

ggplot(h, aes(names, frq, fill=positive)) + geom_bar( stat = "identity")