vzhomeexperiments
diff --git a/‎2018-04-21-AllNews.png
9.65 KB b/‎2018-04-21-AllNews.png
9.65 KB
diff --git a/‎AnalysingNewsSentiment.R
+2-1 b/‎AnalysingNewsSentiment.R
+2-1
@@ -23,7 +23,8 @@ for (FILE in filesToAdd) {
 }
 
 # plot it
-ggplot(S_LOG, aes(x = day, y = ave_pol)) + geom_line()+facet_grid(~country)
+ggplot(S_LOG, aes(x = day, y = ave_pol)) + geom_line()+facet_grid(~country)+
+  geom_hline(aes(yintercept = 0, col = "zero"))
 
 # some data manipulation?
 S_LOG_W <- spread(S_LOG, key = country, value = ave_pol)
Original file line number	Diff line number	Diff line change
`@@ -23,7 +23,8 @@ for (FILE in filesToAdd) {`
`23`	`23`	`}`
`24`	`24`
`25`	`25`	`# plot it`
`26`		`-ggplot(S_LOG, aes(x = day, y = ave_pol)) + geom_line()+facet_grid(~country)`
	`26`	`+ggplot(S_LOG, aes(x = day, y = ave_pol)) + geom_line()+facet_grid(~country)+`
	`27`	`+ geom_hline(aes(yintercept = 0, col = "zero"))`
`27`	`28`
`28`	`29`	`# some data manipulation?`
`29`	`30`	`S_LOG_W <- spread(S_LOG, key = country, value = ave_pol)`