R: ggplot2: Splitting the values for the y-variable in two categories

Question

I am trying to produce a ggplot2 with two geom_line based on the y-variable. My x-axis are dates and my y-axis are the Sentiment from -5 to 5. For every date I got several Sentiment-Values. I want to see how the Sentiment changes over the days.

My Data looks like this(every row is a different person): My Data:

This is my used code to produce the plot:

ggplot(kernplot, aes(x=dates, y=Sentiment)) +
  geom_line()+
  scale_x_date(date_breaks = "1 day", date_labels = "%Y-%m-%d", limits = as.Date(c("2017-09-22","2017-10-10")) )+
  scale_y_continuous(breaks=seq(-5,5, by=1))+
  theme(axis.text.x = element_text(angle = 25, vjust = 1.0, hjust = 1.0))

Here is a picture how it looks at the moment: Sentimentplot

I already tried to split the Variable in two groups but then my Y-axis labels were not in the right order anymore.

I want 2 lines for the values from 0 to 5 and from 0 to -5. And how can I get the mean of the values to make the line better looking? Because at the moment I cannot really tell how the Sentiment changes over the days.

Instead of describing how your data looks like just post it. — pogibas, Jan 03 '18 at 15:20
Welcome to Stackoverflow. Please provide a reproducible as pointed out here: https://stackoverflow.com/questions/5963269/how-to-make-a-great-r-reproducible-example , so it would be easier for us to help you. — Deena, Jan 03 '18 at 15:38
Please do not show your data as a picture. You may wish to use `dput()` instead (check the link Deena provided for more details). — Z.Lin, Jan 03 '18 at 17:36

score 0 · Accepted Answer · answered Jan 03 '18 at 17:54

Try breaking up the data argument?

library(tidyverse)

kernplot <- tibble(dates = Sys.Date() + sample.int(15, size=100, replace = TRUE),
                   Sentiment = sample.int(10, size = 100, replace=TRUE)-5) %>% 
  group_by(dates) %>% 
  print()
#> # A tibble: 100 x 2
#> # Groups:   dates [15]
#>         dates Sentiment
#>        <date>     <dbl>
#>  1 2018-01-08        -2
#>  2 2018-01-14        -1
#>  3 2018-01-18        -4
#>  4 2018-01-12         2
#>  5 2018-01-06         2
#>  6 2018-01-07         2
#>  7 2018-01-14         1
#>  8 2018-01-16        -1
#>  9 2018-01-17        -3
#> 10 2018-01-04         3
#> # ... with 90 more rows
ggplot() +
  geom_smooth(data=filter(kernplot, Sentiment <= 0), mapping = aes(x=dates, y=Sentiment),se = FALSE) +
  geom_smooth(data=filter(kernplot, Sentiment >= 0), mapping = aes(x=dates, y=Sentiment),se = FALSE) +
  scale_x_date(date_breaks = "1 day", date_labels = "%Y-%m-%d")+
  scale_y_continuous(breaks=seq(-5,5, by=1)) +
  theme(axis.text.x = element_text(angle = 25, vjust = 1.0, hjust = 1.0))
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'
#> `geom_smooth()` using method = 'loess' and formula 'y ~ x'

devtools::session_info()
#> Session info --------------------------------------------------------------
#>  setting  value                       
#>  version  R version 3.3.2 (2016-10-31)
#>  system   x86_64, linux-gnu           
#>  ui       X11                         
#>  language (EN)                        
#>  collate  en_US.UTF-8                 
#>  tz       America/New_York            
#>  date     2018-01-03
#> Packages ------------------------------------------------------------------
#>  package    * version    date       source                            
#>  assertthat   0.2.0      2017-04-11 cran (@0.2.0)                     
#>  backports    1.0.5      2017-01-18 CRAN (R 3.3.2)                    
#>  bindr        0.1        2016-11-13 cran (@0.1)                       
#>  bindrcpp   * 0.2        2017-06-17 CRAN (R 3.3.2)                    
#>  broom        0.4.2      2017-02-13 CRAN (R 3.3.2)                    
#>  cellranger   1.1.0      2016-07-27 CRAN (R 3.3.2)                    
#>  cli          1.0.0      2017-11-05 CRAN (R 3.3.2)                    
#>  colorspace   1.3-2      2016-12-14 CRAN (R 3.3.2)                    
#>  crayon       1.3.4      2017-09-16 CRAN (R 3.3.2)                    
#>  devtools     1.12.0     2016-12-05 CRAN (R 3.3.2)                    
#>  digest       0.6.12     2017-01-27 CRAN (R 3.3.2)                    
#>  dplyr      * 0.7.4      2017-09-28 CRAN (R 3.3.2)                    
#>  evaluate     0.10.1     2017-06-24 cran (@0.10.1)                    
#>  forcats    * 0.2.0      2017-01-23 CRAN (R 3.3.2)                    
#>  foreign      0.8-67     2016-09-13 CRAN (R 3.3.2)                    
#>  ggplot2    * 2.2.1.9000 2017-11-14 Github (tidyverse/ggplot2@41f154f)
#>  glue         1.2.0      2017-10-29 CRAN (R 3.3.2)                    
#>  gtable       0.2.0      2016-02-26 CRAN (R 3.3.2)                    
#>  haven        1.1.0      2017-07-09 CRAN (R 3.3.2)                    
#>  hms          0.3        2016-11-22 CRAN (R 3.3.2)                    
#>  htmltools    0.3.6      2017-04-28 cran (@0.3.6)                     
#>  httr         1.3.1      2017-08-20 CRAN (R 3.3.2)                    
#>  jsonlite     1.5        2017-06-01 cran (@1.5)                       
#>  knitr        1.17       2017-08-10 cran (@1.17)                      
#>  lattice      0.20-35    2017-03-25 CRAN (R 3.3.2)                    
#>  lazyeval     0.2.1      2017-10-29 cran (@0.2.1)                     
#>  lubridate    1.7.1      2017-11-03 CRAN (R 3.3.2)                    
#>  magrittr     1.5        2014-11-22 CRAN (R 3.3.2)                    
#>  memoise      1.0.0      2016-01-29 CRAN (R 3.3.2)                    
#>  mnormt       1.5-5      2016-10-15 CRAN (R 3.3.2)                    
#>  modelr       0.1.1      2017-07-24 CRAN (R 3.3.2)                    
#>  munsell      0.4.3      2016-02-13 CRAN (R 3.3.2)                    
#>  nlme         3.1-131    2017-02-06 CRAN (R 3.3.2)                    
#>  pkgconfig    2.0.1      2017-03-21 cran (@2.0.1)                     
#>  plyr         1.8.4      2016-06-08 CRAN (R 3.3.2)                    
#>  psych        1.6.12     2017-01-08 CRAN (R 3.3.2)                    
#>  purrr      * 0.2.4      2017-10-18 CRAN (R 3.3.2)                    
#>  R6           2.2.2      2017-06-17 cran (@2.2.2)                     
#>  Rcpp         0.12.13    2017-09-28 cran (@0.12.13)                   
#>  readr      * 1.1.1      2017-05-16 CRAN (R 3.3.2)                    
#>  readxl       1.0.0      2017-04-18 CRAN (R 3.3.2)                    
#>  reshape2     1.4.2      2016-10-22 CRAN (R 3.3.2)                    
#>  rlang        0.1.4      2017-11-05 CRAN (R 3.3.2)                    
#>  rmarkdown    1.6        2017-06-15 cran (@1.6)                       
#>  rprojroot    1.2        2017-01-16 CRAN (R 3.3.2)                    
#>  rstudioapi   0.7        2017-09-07 cran (@0.7)                       
#>  rvest        0.3.2      2016-06-17 CRAN (R 3.3.2)                    
#>  scales       0.5.0.9000 2017-10-09 Github (hadley/scales@d767915)    
#>  stringi      1.1.5      2017-04-07 cran (@1.1.5)                     
#>  stringr    * 1.2.0      2017-02-18 CRAN (R 3.3.2)                    
#>  tibble     * 1.3.4      2017-08-22 cran (@1.3.4)                     
#>  tidyr      * 0.7.2      2017-10-16 CRAN (R 3.3.2)                    
#>  tidyverse  * 1.2.1      2017-11-14 CRAN (R 3.3.2)                    
#>  withr        2.1.0.9000 2017-11-14 Github (jimhester/withr@a9ebeb3)  
#>  xml2         1.1.1      2017-01-24 CRAN (R 3.3.2)                    
#>  yaml         2.1.14     2016-11-12 CRAN (R 3.3.2)

R: ggplot2: Splitting the values for the y-variable in two categories

1 Answers1