Plot Korrelationen zwischen 2 Y-Achsen

Question

Ich freue mich auf ein Streudiagramm mit einer gedrehten X-Achse. Grundsätzlich möchte ich Korrelationen zwischen 2 Y-Achsen darstellen. Im Idealfall würde Ich mag die x-Achse die Zeit und die Y-Achsen stellen

die Korrelationen

data <- data.frame(words = c("Aliens", "Aliens", "Constitution", "Constitution", "Entitled", "Entitled"), 
       dates = as.Date(c ("2010-01-05", "2010-02-13", "2010-04-20", "2010-06-11","2010-03-18", "2010-09-13")), 
        Rep = c(.18, .14, .16, .45, .33, .71), Dem = c(.16, .38, .24, .11, .59, .34)) 

vertreten haben, Und das ist, was ich in der Lage war, so weit zu tun. Ich denke nicht, dass es wirklich Sinn macht. Ich könnte nach Korrelation und Farbe nach Monat sortieren?

plot(x=data$dates, y=data$Rep, ylim=c(0,1.1*max(data$Rep)), 
col='blue', pch = 15, 
main='Rep Correlations stock close', xlab='date', ylab='Republican') 
axis(2, pretty(c(0, 1.1*max(data$Rep))), col='blue') 
par(new=T) 
plot(x=data$date, y=data$Dem, ylim=c(0,1.1*max(data$Dem)), 
col='green', pch = 20, 
xaxt='n', axes = F, xlab = '', ylab='') 
axis(4, pretty(c(0, 1.1*max(data$Dem))), col='green') 
mtext("Democrat",side=4) 

Irgendwelche Gedanken/Tipps?

Answer 1

Im Anschluss an @ JohnColby Kommentar über (und How can I plot with 2 different y-axes?, http://rwiki.sciviews.org/doku.php?id=tips:graphics-base:2yaxes für Argumente, warum Sie sollten nicht Dual Plots y-Achse erstellen, wenn Sie es vermeiden können), wie etwa:

dat <- data ## best not to use reserved words -- it can cause confusion 
library(ggplot2) 
theme_update(theme_bw()) ## I prefer this theme 
## code months as a factor 
dat$month <- factor(months(dat$dates),levels=month.name) 
dat <- dat[order(dat$dates),] 
qplot(Rep,Dem,colour=month,data=dat)+ 
    geom_path(aes(group=1),colour="gray")+geom_point(alpha=0.4)+ 
    geom_text(aes(label=words),size=4) 

(Hinzufügen Linien zwischen den Punkten, dann wieder Plotten der Punkte, so dass sie durch die Linie nicht verdeckt sind, den Zusatz nett ist, aber vielleicht zu viel Unordnung für den vollständigen Datensatz sein)

Oder kodieren Datum als kontinuierlicher Variable

ggplot(dat,aes(Rep,Dem,colour=dates))+ 
    geom_path(aes(group=1),colour="gray")+geom_point(alpha=0.4)+ 
    geom_text(aes(label=words),size=4)+ 
    expand_limits(x=c(0,0.9)) 
ggsave("plotcorr2.png",width=6,height=3) 

In diesem speziellen Kontext (wo beide Variablen im gleichen Maßstab gemessen werden), gibt es auch nichts falsch mit ihnen sowohl gegen das Datum Achse Plotten:

library(reshape2) 
library(plyr) 
m1 <- rename(melt(dat,id.vars=c("words","dates","month")), 
      c(variable="party")) 

ggplot(m1,aes(dates,value,colour=party))+geom_line()+ 
    geom_text(aes(label=words),size=3)+ 
    expand_limits(x=as.Date(c("2009-12-15","2010-10-01"))) 
ggsave("plotcorr3.png",width=6,height=3)