R 如何在ggplot2中显示y轴右侧的数据

我有一个数据框，叫做test。它有三列，

日期

，

使用的内核

，

相对百分比

。我想创建一个ggplot图，其中我想在X轴上显示

日期

，在Y轴上显示

相对百分比

，在Y轴右侧显示

已用核心

这是我的数据框：

dput(head(test,30))  

structure(list(DATE = structure(c(1364359560, 1364359590, 1364359620, 
1364359650, 1364359680, 1364359710, 1364359740, 1364359770, 1364359800, 
1364359830, 1364359860, 1364359890, 1364359920, 1364359950, 1364359980, 
1364360010, 1364360040, 1364360070, 1364360100, 1364360130, 1364360160, 
1364360190, 1364360220, 1364360250, 1364360280, 1364360310, 1364360340, 
1364360370, 1364360400, 1364360430), class = c("POSIXct", "POSIXt"
), tzone = ""), USED_CORES = c(2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 
2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.24, 2.4, 2.4, 2.4, 2.4, 2.4, 
2.24, 2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.4, 2.56), 
    RELATIVE_PERCENT = c(15, 15, 15, 15, 15, 15, 15, 15, 15, 
    15, 15, 15, 14, 15, 15, 15, 15, 15, 14, 15, 15, 15, 15, 15, 
    15, 15, 15, 15, 15, 16)), .Names = c("DATE", "USED_CORES", 
"RELATIVE_PERCENT"), row.names = c(NA, 30L), class = "data.frame")

我可以在X轴上显示

日期

，在Y轴上显示

相对百分比

：

ggplot(test, aes(DATE, RELATIVE_PERCENT)) + 
      geom_point(colour="blue", size=1) + theme_bw()

---

如何在y轴的右侧显示

已使用的\u CORES

？

显然，这在ggplot2中是不可能的，原因很好。看看这个问题：

尤其是在维基链接上，来自公认的答案：