r - Windrose 的开盘价和收盘价

Question

我有 5 天期间三只股票的一些开盘价和收盘价。

df <- structure(list(stock = c("Google", "Google", "Google", "Google", 
"Google", "Google", "Google", "Google", "Google", "Google", "Yahoo", 
"Yahoo", "Yahoo", "Yahoo", "Yahoo", "Yahoo", "Yahoo", "Yahoo", 
"Yahoo", "Yahoo", "Amazon", "Amazon", "Amazon", "Amazon", "Amazon", 
"Amazon", "Amazon", "Amazon", "Amazon", "Amazon"), day = c("Monday", 
"Monday", "Tuesday", "Tuesday", "Wednesday", "Wednesday", "Thurday", 
"Thurday", "Friday", "Friday", "Monday", "Monday", "Tuesday", 
"Tuesday", "Wednesday", "Wednesday", "Thurday", "Thurday", "Friday", 
"Friday", "Monday", "Monday", "Tuesday", "Tuesday", "Wednesday", 
"Wednesday", "Thurday", "Thurday", "Friday", "Friday"), startend = c("open", 
"close", "open", "close", "open", "close", "open", "close", "open", 
"close", "open", "close", "open", "close", "open", "close", "open", 
"close", "open", "close", "open", "close", "open", "close", "open", 
"close", "open", "close", "open", "close"), value = c(0.68, 0.67, 
0.16, 0.16, 0.28, 0.28, 0.16, 0.17, 0.36, 0.36, 0.74, 0.74, 0.13, 
0.13, 0.25, 0.25, 0.15, 0.15, 0.39, 0.39, 0.61, 0.6, 0.2, 0.21, 
0.3, 0.3, 0.21, 0.22, 0.37, 0.38)), class = "data.frame", row.names = c(NA, 
-30L))

对于这样的情节：

library(ggplot2)
data.in <- read.csv(file = "http://midcdmz.nrel.gov/apps/plot.pl?site=NWTC&start=20010824&edy=26&emo=3&eyr=2062&year=2013&month=1&day=1&endyear=2013&endmonth=12&endday=31&time=0&inst=21&inst=39&type=data&wrlevel=2&preset=0&first=3&math=0&second=-1&value=0.0&user=0&axis=1",
                    col.names = c("date","hr","ws.80","wd.80"))
p1 <- plot.windrose(spd = data.in$ws.80,
                   dir = data.in$wd.80)

如何使用每天的开盘和收盘变量绘制股票数据。更具体地说，在圆圈中有六个切片。一半将有三只股票的开盘价，并且在一周中的每一天都有不同的颜色。

标签： rggplot2