TAK-60
This commit is contained in:
parent
294ea466ed
commit
bb9e978674
512
app/.Rhistory
512
app/.Rhistory
@ -1,512 +0,0 @@
|
||||
y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)")
|
||||
presidential %>%
|
||||
mutate(id = 33 + row_number()) %>%
|
||||
ggplot(aes(start, id, colour = party)) +
|
||||
geom_point() +
|
||||
geom_segment(aes(xend = end, yend = id)) +
|
||||
scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+
|
||||
labs(x = "",
|
||||
y = ""
|
||||
)+
|
||||
scale_y_continuous(labels=y,breaks = x)+
|
||||
scale_x_date(date_breaks = "4 years",date_labels = "'%y")
|
||||
#3.
|
||||
x<-seq(by=1,(34),(44))
|
||||
y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)")
|
||||
presidential %>%
|
||||
mutate(id = 33 + row_number()) %>%
|
||||
ggplot(aes(start, id, colour = party)) +
|
||||
geom_point() +
|
||||
geom_segment(aes(xend = end, yend = id)) +
|
||||
scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+
|
||||
labs(x = "",
|
||||
y = ""
|
||||
)+
|
||||
scale_y_continuous(labels=y,breaks = x)+
|
||||
scale_x_date(date_breaks = "4 years",date_labels = "'%y")
|
||||
#5.3.1
|
||||
#1.
|
||||
label <- tibble(
|
||||
x=c(-Inf,-Inf,Inf,Inf),
|
||||
y=c(-Inf, Inf,-Inf,Inf),
|
||||
label=c("x","x","x","x"),
|
||||
hjust=c(0,0,1,1),
|
||||
vjust=c(0,1.0,0,1)
|
||||
)
|
||||
ggplot(mpg, aes(displ, hwy)) +
|
||||
geom_point() +
|
||||
geom_text(data=label,aes(x=c(-Inf,-Inf,Inf,Inf),y=c(-Inf, Inf,-Inf,Inf),hjust=c(0,0,1,1),
|
||||
vjust=c(0,1.0,0,1),label=c("x","x","x","x")))
|
||||
#3.
|
||||
#rozne etykiety na kazdym panelu
|
||||
label <- tibble(
|
||||
label = c("x","xx","xxx"),
|
||||
drv = c("4", "f","r")
|
||||
)
|
||||
ggplot(data = mpg) +
|
||||
geom_point(mapping = aes(x = displ, y = hwy)) +
|
||||
facet_wrap(~ drv, nrow = 2)+
|
||||
geom_text(data = label, aes(x = 10, y = 10, label = label))
|
||||
#etykieta do pojedynczego panelu
|
||||
label <- tibble(
|
||||
label = c("x"),
|
||||
drv = c("4")
|
||||
)
|
||||
ggplot(data = mpg) +
|
||||
geom_point(mapping = aes(x = displ, y = hwy)) +
|
||||
facet_wrap(~ drv, nrow = 2)+
|
||||
geom_text(data = label, aes(x = 10, y = 10, label = label))
|
||||
#3.
|
||||
#Gdy damy
|
||||
label <- tibble(
|
||||
label = "x"
|
||||
)
|
||||
ggplot(data = mpg) +
|
||||
geom_point(mapping = aes(x = displ, y = hwy)) +
|
||||
facet_wrap(~ drv, nrow = 2)+
|
||||
geom_text(data = label, aes(x = 10, y = 10, label = label))
|
||||
strzalka=arrow(angle = 10, length = unit(0.5, "inches"),
|
||||
ends = "last", type = "open")
|
||||
ggplot(mpg, aes(displ, hwy)) +
|
||||
geom_point() +
|
||||
geom_segment(x=0,y=0,arrow=strzalka,xend=5,yend=40)
|
||||
strzalka=arrow(angle = 80, length = unit(0.1, "inches"),
|
||||
ends = "both", type = "closed")
|
||||
ggplot(mpg, aes(displ, hwy)) +
|
||||
geom_point() +
|
||||
geom_segment(x=0,y=0,arrow=strzalka,xend=5,yend=40)
|
||||
strzalka=arrow(angle = 20, length = unit(10, "inches"),
|
||||
ends = "last", type = "closed")
|
||||
ggplot(mpg, aes(displ, hwy)) +
|
||||
geom_point() +
|
||||
geom_segment(x=0,y=0,arrow=strzalka,xend=5,yend=40)
|
||||
#3.
|
||||
x<-seq(by=1,(34),(44))
|
||||
y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)")
|
||||
presidential %>%
|
||||
mutate(id = 33 + row_number()) %>%
|
||||
ggplot(aes(start, id, colour = party)) +
|
||||
geom_point() +
|
||||
geom_segment(aes(xend = end, yend = id)) +
|
||||
scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+
|
||||
labs(x = "",
|
||||
y = ""
|
||||
)+
|
||||
scale_y_continuous(labels=y,breaks = x)+
|
||||
scale_x_date(date_breaks = "4 years",date_labels = "'%y")
|
||||
library(shiny); runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
library(shiny)
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('xd')
|
||||
runApp('xd')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('~/Desktop/TPD/8/8.10.R')
|
||||
runApp('~/Desktop/TPD/8/8.10.R')
|
||||
runApp('~/Desktop/TPD/8/8.10.R')
|
||||
runApp('~/Desktop/TPD/8/8.10.R')
|
||||
runApp('~/Desktop/TPD/8/8.10.R')
|
||||
runApp('~/Desktop/TPD/8/8.3.6.R')
|
||||
runApp('~/Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('~/Desktop/TPD/8/8.10.R')
|
||||
runApp('~/Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
input$slider1
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
?double()
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
library(ggplot2)
|
||||
x=seq(by=1,-8,8)
|
||||
x
|
||||
x=seq(by=1,-8,8)
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
d
|
||||
x=seq(by=1,-8,8)
|
||||
y=1/(1+exp(-x))
|
||||
x=seq(by=1,-8,8)
|
||||
y=1/(1+exp(-x))
|
||||
d=data.frame(x,y)
|
||||
View(d)
|
||||
View(d)
|
||||
plot(x,y)
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
?geom_abline()
|
||||
x=seq(by=1,-8,8)
|
||||
y=1/(1+exp(-x))
|
||||
d=data.frame(x,y)
|
||||
ggplot(data=d,aes(x=x,y=y))+
|
||||
geom_line()+
|
||||
geom_abline()
|
||||
labs(x="premises",y="prediction")
|
||||
ggplot(data=d,aes(x=x,y=y))+
|
||||
geom_line()+
|
||||
geom_point(aes(x=1,y=2))+
|
||||
labs(x="premises",y="prediction")
|
||||
ggplot(data=d,aes(x=x,y=y))+
|
||||
geom_line()+
|
||||
geom_point(aes(x=1,y=2),color="red")+
|
||||
labs(x="premises",y="prediction")
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
ggplot(data=d,aes(x=x,y=y))+
|
||||
geom_line()+
|
||||
geom_point(aes(x=z,y=1/(1+exp(-z))),color="red")+
|
||||
labs(x="premises",y="prediction")+
|
||||
geom_line(aes(x=0,y=0.1),linetype = "dashed")
|
||||
z=-5.3718+0.0354*as.numeric(input$slider1)+1.6159*as.numeric(input$select1)+1.1768*as.numeric(input$select2)+0.0697*as.numeric(input$slider2)+0.9586*as.numeric(input$select3)-2.9486*as.numeric(input$select4)
|
||||
x=seq(by=1,-8,8)
|
||||
y=1/(1+exp(-x))
|
||||
d=data.frame(x,y)
|
||||
ggplot(data=d,aes(x=x,y=y))+
|
||||
geom_line()+
|
||||
geom_point(aes(x=z,y=1/(1+exp(-z))),color="red")+
|
||||
labs(x="premises",y="prediction")+
|
||||
geom_line(aes(x=0,y=0.1),linetype = "dashed")
|
||||
z=-5.3718+0.0354*as.numeric(input$slider1)+1.6159*as.numeric(input$select1)+1.1768*as.numeric(input$select2)+0.0697*as.numeric(input$slider2)+0.9586*as.numeric(input$select3)-2.9486*as.numeric(input$select4)
|
||||
z=0.019
|
||||
x=seq(by=1,-8,8)
|
||||
y=1/(1+exp(-x))
|
||||
d=data.frame(x,y)
|
||||
ggplot(data=d,aes(x=x,y=y))+
|
||||
geom_line()+
|
||||
geom_point(aes(x=z,y=1/(1+exp(-z))),color="red")+
|
||||
labs(x="premises",y="prediction")+
|
||||
geom_line(aes(x=0,y=0.1),linetype = "dashed")
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
?geom_line()
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.10.R')
|
||||
library(shiny); runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('dddd')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('j:/Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
library(ggplot2)
|
||||
library(dplyr)
|
||||
smaller <- diamonds %>%
|
||||
filter(carat <= 2.5)
|
||||
```{r}
|
||||
# Zadanie 4.4.8.1
|
||||
ggplot(data = diamonds) +
|
||||
geom_line(mapping = aes(x = carat, y = color, color = color)) +
|
||||
facet_grid(clarity ~ cut )
|
||||
bigger <- diamonds %>%
|
||||
filter(carat > 2.5)
|
||||
knitr::kable(
|
||||
bigger[1:20, 1:5],
|
||||
caption = "20 najwiekszych diamentow i ich cechy."
|
||||
)
|
||||
version
|
||||
shiny::runApp('j:/Desktop/TakeCareApp/app')
|
||||
install.packages("shiny.router")
|
||||
runApp('j:/Desktop/TakeCareApp/app')
|
||||
runApp('j:/Desktop/TakeCareApp/app')
|
||||
runApp('j:/Desktop/TakeCareApp/app')
|
||||
runApp('j:/Desktop/TakeCareApp/app')
|
||||
runApp('j:/Desktop/TakeCareApp/app')
|
||||
runApp('j:/Desktop/TakeCareApp/app')
|
||||
library(tidyverse)
|
||||
#3.
|
||||
x<-seq(by=1,(34),(44))
|
||||
y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)")
|
||||
presidential %>%
|
||||
mutate(id = 33 + row_number()) %>%
|
||||
ggplot(aes(start, id, colour = party)) +
|
||||
geom_point() +
|
||||
geom_segment(aes(xend = end, yend = id)) +
|
||||
scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+
|
||||
labs(x = "",
|
||||
y = ""
|
||||
)+
|
||||
scale_y_continuous(labels=y,breaks = x)+
|
||||
scale_x_date(date_breaks = "4 years",date_labels = "'%y")
|
||||
#4.
|
||||
ggplot(diamonds, aes(carat, price)) +
|
||||
geom_point(aes(colour = cut), alpha = 1/20)+
|
||||
theme(legend.position = "bottom") +
|
||||
guides(colour = guide_legend(nrow = 1, override.aes = list(alpha=1)))
|
||||
#3.
|
||||
x<-seq(by=1,(34),(44))
|
||||
y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)")
|
||||
presidential %>%
|
||||
mutate(id = 33 + row_number()) %>%
|
||||
ggplot(aes(start, id, colour = party)) +
|
||||
geom_point() +
|
||||
geom_segment(aes(xend = end, yend = id)) +
|
||||
scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+
|
||||
labs(x = "",
|
||||
y = ""
|
||||
)+
|
||||
scale_y_continuous(labels=y,breaks = x)+
|
||||
scale_x_date(date_breaks = "4 years",date_labels = "'%y")
|
||||
#5.4.4
|
||||
#1.
|
||||
df <- tibble(
|
||||
x = rnorm(10000),
|
||||
y = rnorm(10000)
|
||||
)
|
||||
ggplot(df, aes(x, y)) +
|
||||
geom_hex() +
|
||||
scale_colour_gradient(low = "white", high = "red") +
|
||||
coord_fixed()
|
||||
#2.
|
||||
?scale_x_log10()
|
||||
#Pierwszy argument w kazdej skali to name. a w labs pierwszym argumentem jest lista nowych par nazwa-wartość. Nazwa powinna być estetyką.
|
||||
#W skalach mozna ustawic nazwe osi tak jak za pomoca funkcji labs(). Za pomoca labs mozemy zmieniac wiecej etykiet niz za pomoca skal.
|
||||
#scale_y_continuous(name="xd",labels=y,breaks = x)
|
||||
#labs(x="xd",y="p")
|
||||
?labs()
|
||||
#3.
|
||||
x<-seq(by=1,(34),(44))
|
||||
y<-c("Eisenhower (34)", "Kennedy (35)", "Johnson (36)" ,"Nixon (37)" ,"Ford (38)", "Carter (39)","Reagan (40)","Bush (41)","Clinton (42)","Bush (43)","Obama (44)")
|
||||
presidential %>%
|
||||
mutate(id = 33 + row_number()) %>%
|
||||
ggplot(aes(start, id, colour = party)) +
|
||||
geom_point() +
|
||||
geom_segment(aes(xend = end, yend = id)) +
|
||||
scale_colour_manual(values = c(Republican = "red", Democratic = "blue"))+
|
||||
labs(x = "",
|
||||
y = ""
|
||||
)+
|
||||
scale_y_continuous(labels=y,breaks = x)+
|
||||
scale_x_date(date_breaks = "4 years",date_labels = "'%y")
|
||||
library(shiny); runApp('Desktop/TPD/8/8.10.R')
|
||||
runApp('Desktop/TPD/8/8.3.6.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.4.2.R')
|
||||
runApp('Desktop/TPD/8/8.5.5.R')
|
||||
library(shiny); runApp('j:/Desktop/TakeCareApp/app/calculations.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/calculations.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/calculations.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/calculations.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/calculations.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/calculations.R')
|
||||
library(shiny); runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('j:/Desktop/TakeCareApp/app/authors.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
library(shiny); runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
runApp('Desktop/TakeCareApp/app/about.R')
|
||||
16
app/about.R
16
app/about.R
@ -4,9 +4,13 @@ library(ggplot2)
|
||||
library(plotly)
|
||||
library(DT)
|
||||
|
||||
ui <- fluidPage(
|
||||
aboutUI <- function(id){
|
||||
ns <- NS(id)
|
||||
|
||||
|
||||
fluidPage(
|
||||
tags$head(
|
||||
tags$link(rel = "stylesheet", type = "text/css", href = "authors.css")
|
||||
tags$link(rel = "stylesheet", type = "text/css", href = "style.css")
|
||||
),
|
||||
mainPanel(
|
||||
p(id="div0","Kim jesteśmy?"),
|
||||
@ -18,13 +22,15 @@ ui <- fluidPage(
|
||||
p(id="div4","Robert Tarnas"),
|
||||
p(id="dif1"),
|
||||
p(id="div5","Rafał Piskorski"),
|
||||
p(id="dif2")
|
||||
p(id="dif2"),
|
||||
|
||||
|
||||
|
||||
)
|
||||
)
|
||||
}
|
||||
|
||||
server <- function(input, output, session) {
|
||||
aboutServer <- function(input, output, session) {
|
||||
|
||||
|
||||
}
|
||||
shinyApp(ui = ui, server = server)
|
||||
@ -6,13 +6,14 @@ library(plotly)
|
||||
library(DT)
|
||||
|
||||
source("home_module.R",encoding="utf-8")
|
||||
source("about_module.R",encoding="utf-8")
|
||||
source("about.R",encoding="utf-8")
|
||||
source("profil_module.R",encoding="utf-8")
|
||||
source("login_module.R",encoding="utf-8")
|
||||
source("register_module.R",encoding="utf-8")
|
||||
|
||||
|
||||
|
||||
|
||||
home_page <-homeUI(id="home")
|
||||
about_page <-aboutUI(id="about")
|
||||
profil_page <-profilUI(id="profil")
|
||||
|
||||
Loading…
Reference in New Issue
Block a user