如何在R中制作双Y轴杆图（道奇）？

Question

我正在尝试在单X轴上制作双杆图，如何执行它？我知道如何处理线路。例如，我正在使用mtcars数据。我也想在该条中添加传奇和错误行。

library(ggplot2)

scaleFactor <- max(mtcars$cyl) / max(mtcars$hp)

ggplot(mtcars, aes(x=disp)) +
  geom_smooth(aes(y=cyl), method="loess", col="blue") +
  geom_smooth(aes(y=hp * scaleFactor), method="loess", col="red") +
  scale_y_continuous(name="cyl", sec.axis=sec_axis(~./scaleFactor, name="hp")) +
  theme(
    axis.title.y.left=element_text(color="blue"),
    axis.text.y.left=element_text(color="blue"),
    axis.title.y.right=element_text(color="red"),
    axis.text.y.right=element_text(color="red")
  )

Answer 1

需要重组数据，以便与GGPLOT正确运行。

这是我如何以三列和mtcars行的示例来完成的：

# Only use first 3 rows and columns
mtcarsmod <- mtcars[1:3, 1:3]

# Restructure data
Car <- rownames(mtcarsmod)
Part <- colnames(mtcarsmod)
Value <- as.vector(t(mtcarsmod))
mtcarsmod <- data.frame("Car"=rep(Car,each=length(Part)), "Part"=rep(Part, times=length(Car)), "Value"= Value)


# Visualize data
library(ggplot2)

# Have Cars on X axis
plot <- ggplot(mtcarsmod, aes(x=Car, y=Value, fill=Part)) +   
               geom_bar(position="dodge", stat="identity")
plot

# Have Variables on X axis
plot <- ggplot(mtcarsmod, aes(x=Part, y=Value, fill=Car)) +   
               geom_bar(position="dodge", stat="identity")
plot


# Have Cars on Y axis
plot <- ggplot(mtcarsmod, aes(x=Value, y=Car, fill=Part)) +   
              geom_bar(position="dodge", stat="identity")
plot

# Have Variables on Y axis
plot <- ggplot(mtcarsmod, aes(x=Value, y=Part, fill=Car)) +   
              geom_bar(position="dodge", stat="identity")
plot