dodano zdjecia
This commit is contained in:
Jan Przybylski
parent
fa34d31efa
commit
294ea466ed
512
app/.Rhistory
Normal file
512
app/.Rhistory
Normal file
@ -0,0 +1,512 @@
|
||||
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')
|
||||
@ -14,12 +14,12 @@ ui <- fluidPage(
|
||||
p(id="div1","Jesteśmy młodym i dynamicznym zespołem, który dopiero co wkracza na rynek komercyjnych aplikacji. Tworząc aplikację TakeCareApp przyświecał nam cel poszerzenie dostępności diagnozy medycznej i umożliwienie szybkiego i wygodnego odczytania wyników. "),
|
||||
p(id="div2","Nasza ekipa składa się z trzech członków i są to:"),
|
||||
p(id="div3","Jan Przybylski"),
|
||||
#p(id="dif"),
|
||||
p(id="dif"),
|
||||
p(id="div4","Robert Tarnas"),
|
||||
#p(id="dif1"),
|
||||
p(id="dif1"),
|
||||
p(id="div5","Rafał Piskorski"),
|
||||
#p(id="dif2")
|
||||
#Dodac zdjecia
|
||||
p(id="dif2")
|
||||
|
||||
)
|
||||
)
|
||||
|
||||
|
||||
@ -150,7 +150,7 @@ height: 70px;
|
||||
left: 85px;
|
||||
top: calc(50% - 70px/2 + 4px);
|
||||
|
||||
background: url(jp.jpg);
|
||||
background: url(jp.png);
|
||||
}
|
||||
|
||||
#dif1{
|
||||
@ -160,7 +160,7 @@ height: 70px;
|
||||
left: 244px;
|
||||
top: calc(50% - 70px/2 + 4px);
|
||||
|
||||
background: url(robert.jpg);
|
||||
background: url(robert.png);
|
||||
}
|
||||
#dif2{
|
||||
position: absolute;
|
||||
@ -169,6 +169,6 @@ height: 70px;
|
||||
left: 408px;
|
||||
top: calc(50% - 70px/2 + 4px);
|
||||
|
||||
background: url(rafal.jpg);
|
||||
background: url(rafal.png);
|
||||
}
|
||||
|
||||
|
||||
BIN
app/www/jp.png
Normal file
BIN
app/www/jp.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.5 KiB |
BIN
app/www/rafal.png
Normal file
BIN
app/www/rafal.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.3 KiB |
BIN
app/www/robert.png
Normal file
BIN
app/www/robert.png
Normal file
Binary file not shown.
|
After Width: | Height: | Size: 9.2 KiB |
Loading…
Reference in New Issue
Block a user