使用ggplot在辅助轴上绘图

Question

我有下面的折线图，我想在辅助y轴上的“bigDF”数据框中绘制“V”列的条形图。这可能吗？我必须在这个例子中使用ggplot。可以这样做吗？

以下是您可以运行的代码：

library('ggplot2')
time <- as.POSIXct(c("2014-12-10 20:51:53.103","2014-12-10 20:56:54.204",
                     "2014-12-10 20:57:54.204"), tz= "GMT")
p <- c(49.32, 60,50)
s <- c("B","","S")
pointcolor <- c("green","","red")
V <- c(100,500,600)
share <- c(35,0,6)
pointsize <- c(10,10,10)
shapeType <- c(16,10,16)
bigDF <- data.frame(time=time, p=p, s=s, pointcolor=pointcolor, share=share,
                    pointsize=pointsize, shapeType=shapeType,V = V)
bigDF
ggplot(bigDF, aes(x=time, y=p)) + geom_line() + 
  geom_point( aes(shape = as.factor(shapeType), 
                  size = pointsize, color = pointcolor))+ 
  ylab("this is primary y axis")+  
  xlab("this is the x axis")
scale_color_manual(values = levels(as.factor(bigDF$pointcolor)))
scale_size_manual(values = levels(as.factor(bigDF$pointsize)))

该代码产生：

但是我想在辅助轴上的“bigDF”数据框中显示“V”列的条形图，我想标记该辅助轴。你能帮忙吗？

谢谢。