fissehab / email_text_alerting_with_shiny Goto Github PK

setwd("G:\\MY Project\\Jigsaw\\Deep learning\\shinyreal")
library(ggplot2)
library(dplyr)
data(diamonds)

head(diamonds)
# A tibble: 6 x 10
  carat cut       color clarity depth table price     x     y     z
  <dbl> <ord>     <ord> <ord>   <dbl> <dbl> <int> <dbl> <dbl> <dbl>
1 0.23  Ideal     E     SI2      61.5    55   326  3.95  3.98  2.43
2 0.21  Premium   E     SI1      59.8    61   326  3.89  3.84  2.31
3 0.23  Good      E     VS1      56.9    65   327  4.05  4.07  2.31
4 0.290 Premium   I     VS2      62.4    58   334  4.2   4.23  2.63
5 0.31  Good      J     SI2      63.3    58   335  4.34  4.35  2.75
6 0.24  Very Good J     VVS2     62.8    57   336  3.94  3.96  2.48

while(TRUE){
  temp=sample_frac(diamonds, 0.1)
  write.csv(temp, paste0("sampled", gsub("[^0-9]","", Sys.time()), ".csv"), row.names = FALSE)
  Sys.sleep(10)  # Suspend execution of R expressions. The time interval to suspend execution for, in seconds.
}

sampled_data <- reactivePoll(10, session,IsThereNewFile, ReadAllData)    
  # 10: number of milliseconds to wait between calls to checkFunc
  output$plot1<-renderPlot({     
    sampled_data=  sampled_data()
    g1= ggplot(sampled_data, aes(depth, fill = cut, colour = cut)) +
      geom_density(alpha = 0.1) +xlim(55, 70)+ggtitle("Distribution of Depth by Cut")+
      theme(plot.title = element_text(color="darkred",size=18,hjust = 0.5),
            axis.text.y = element_text(color="blue",size=12,hjust=1),
            axis.text.x = element_text(color="darkred",size=12,hjust=.5,vjust=.5),
            axis.title.x = element_text(color="red", size=14),
            axis.title.y = element_text(size=14))     
    g2=ggplot(sampled_data, aes(carat, ..count.., fill = cut)) +
      geom_density(position = "stack")+ggtitle("Total Carat by Count")+
      theme(plot.title = element_text(color="purple",size=18,hjust = 0.5),
            axis.text.y = element_text(color="blue",size=12,hjust=1),
            axis.text.x = element_text(color="darkred",size=12,hjust=.5,vjust=.5),
            axis.title.x = element_text(color="red", size=14),
            axis.title.y = element_text(size=14))
    g3=ggplot(sampled_data, aes(carat, ..count.., fill = cut)) +
      geom_density(position = "fill")+ggtitle("Conditional Density Estimate")+
      theme(plot.title = element_text(color="black",size=18,hjust = 0.5),
            axis.text.y = element_text(color="blue",size=12,hjust=1),
            axis.text.x = element_text(color="darkred",size=12,hjust=.5,vjust=.5),
            axis.title.x = element_text(color="red", size=14),
            axis.title.y = element_text(size=14))
    g4=ggplot(sampled_data,aes(carat,price))+geom_boxplot()+facet_grid(.~cut)+
      ggtitle("Price by Carat for each cut")+
      theme(plot.title = element_text(color="darkblue",size=18,hjust = 0.5),
            axis.text.y = element_text(color="blue",size=12,hjust=1),
            axis.text.x = element_text(color="darkred",size=12,hjust=.5,vjust=.5),
            axis.title.x = element_text(color="red", size=14),
            axis.title.y = element_text(size=14))
    grid.arrange(g1,g2,g3,g4)
  })
}
shinyApp(ui, server)

Listening on http://127.0.0.1:5341
Parsed with column specification:
cols(
  carat = col_double(),
  cut = col_character(),
  color = col_character(),
  clarity = col_character(),
  depth = col_double(),
  table = col_double(),
  price = col_integer(),
  x = col_double(),
  y = col_double(),
  z = col_double()
)

Warning: Removed 2 rows containing non-finite values (stat_density).
Warning: Continuous x aesthetic -- did you forget aes(group=...)?
Don't know how to automatically pick scale for object of type function. Defaulting to continuous.
Don't know how to automatically pick scale for object of type function. Defaulting to continuous.
Warning: Error in FUN: object 'depth' not found
  [No stack trace available]