Thanks to visit codestin.com
Credit goes to github.com

Skip to content

Commit 147bc0b

Browse files
author
mahdis-z
committed
fix ci
1 parent 06d2227 commit 147bc0b

Some content is hidden

Large Commits have some content hidden by default. Use the searchbox below for content that may be hidden.

41 files changed

+216
-216
lines changed

‎ggplot2/2011-11-29-scale-x.Rmd

Lines changed: 2 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -40,7 +40,7 @@ fig <- ggplot(MySample, aes(date, y, fill = year)) +
4040
scale_x_date(labels = date_format("%b/%y")) +
4141
scale_fill_gradient(breaks=unique(MySample$year))
4242
43-
fig <- ggplotly(p)
43+
fig <- ggplotly(fig)
4444
4545
fig
4646
```
@@ -72,7 +72,7 @@ fig <- ggplot(data = df,
7272
facet_grid(facets = Year ~ .) +
7373
scale_x_date(labels = function(x) format(x, "%d-%b"))
7474
75-
fig <- ggplotly(p)
75+
fig <- ggplotly(fig)
7676
7777
fig
7878
```

‎ggplot2/2011-11-29-scale-y.Rmd

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -25,7 +25,7 @@ fig <- ggplot(diamonds, aes(color, log10(price))) +
2525
geom_boxplot() +
2626
scale_y_continuous("Price, log10-scaling")
2727
28-
fig <- ggplotly(p)
28+
fig <- ggplotly(fig)
2929
3030
fig
3131
```

‎ggplot2/2016-11-29-aes.Rmd

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -29,7 +29,7 @@ fig <- ggplot(ds, aes(x, y)) +
2929
geom_bar(aes(fill = group), stat = "identity") +
3030
ggtitle("Filled bar chart")
3131
32-
fig <- ggplotly(p)
32+
fig <- ggplotly(fig)
3333
3434
fig
3535
```
@@ -57,7 +57,7 @@ fig <- ggplot(ds, aes(x, y)) +
5757
geom_line(aes(group = group, color = group), size = 2) +
5858
ggtitle("Group specific line chart")
5959
60-
fig <- ggplotly(p)
60+
fig <- ggplotly(fig)
6161
6262
fig
6363
```
@@ -76,7 +76,7 @@ fig <- ggplot(ds, aes(x, y)) +
7676
geom_text(aes(label = group), size = 4) +
7777
ggtitle("Annotation with labels")
7878
79-
fig <- ggplotly(p)
79+
fig <- ggplotly(fig)
8080
8181
fig
8282
```
@@ -96,7 +96,7 @@ fig <- ggplot(ds, aes(x, y)) +
9696
geom_line(aes(group = group, linetype = group)) +
9797
ggtitle("Groupwise shapes and line types")
9898
99-
fig <- ggplotly(p)
99+
fig <- ggplotly(fig)
100100
101101
fig
102102
```

‎ggplot2/2016-11-29-axis-text.Rmd

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -28,7 +28,7 @@ fig <- ggplot(df, aes(carat, price, color = color, alpha = cut)) +
2828
theme(axis.text.x = element_text(colour = "#ff6666", size = 20),
2929
axis.text.y = element_text(colour = "#668cff", size = 20))
3030
31-
fig <- ggplotly(p)
31+
fig <- ggplotly(fig)
3232
3333
fig
3434
```
@@ -45,7 +45,7 @@ fig <- ggplot(df, aes(carat, price, color = cut)) +
4545
geom_point() +
4646
theme(axis.text = element_blank())
4747
48-
fig <- ggplotly(p)
48+
fig <- ggplotly(fig)
4949
5050
fig
5151
```
@@ -65,7 +65,7 @@ fig <- ggplot(ds, aes(x = x, fill = y)) +
6565
theme(axis.text.x = element_text(angle = 90)) +
6666
ggtitle("Vertical Axis Labels")
6767
68-
fig <- ggplotly(p)
68+
fig <- ggplotly(fig)
6969
7070
fig
7171
```
@@ -85,7 +85,7 @@ fig <- ggplot(ds, aes(x = x, fill = y)) +
8585
theme(axis.text.x = element_text(angle = 45)) +
8686
ggtitle("Angle Axis Labels")
8787
88-
fig <- ggplotly(p)
88+
fig <- ggplotly(fig)
8989
9090
fig
9191
```

‎ggplot2/2016-11-29-axis-ticks.Rmd

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -27,7 +27,7 @@ fig <- ggplot(df, aes(carat, price)) +
2727
geom_point() +
2828
theme(axis.ticks = element_line(size = 10))
2929
30-
fig <- ggplotly(p)
30+
fig <- ggplotly(fig)
3131
3232
fig
3333
```

‎ggplot2/2016-11-29-axis-title.Rmd

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -28,7 +28,7 @@ fig <- ggplot(df, aes(carat, price)) +
2828
geom_point() +
2929
labs(title = "Diamonds", x = "x-axis -> Carat", y = "y-axis -> Price")
3030
31-
fig <- ggplotly(p)
31+
fig <- ggplotly(fig)
3232
3333
# Alternatively use
3434
fig <- ggplot(df, aes(carat, price)) +
@@ -37,7 +37,7 @@ fig <- ggplot(df, aes(carat, price)) +
3737
xlab("x-axis -> Carat") +
3838
ylab("y-axis -> Price")
3939
40-
fig <- ggplotly(p)
40+
fig <- ggplotly(fig)
4141
4242
fig
4343
```
@@ -57,7 +57,7 @@ fig <- ggplot(df, aes(carat, price)) +
5757
axis.title.x = element_text(size = 20),
5858
axis.title.y = element_text(size = 20))
5959
60-
fig <- ggplotly(p)
60+
fig <- ggplotly(fig)
6161
6262
fig
6363
```
@@ -77,7 +77,7 @@ fig <- ggplot(df, aes(carat, price)) +
7777
axis.title.x = element_text(size = 20, colour = "#6699ff"),
7878
axis.title.y = element_text(size = 20, colour = "#ff8080"))
7979
80-
fig <- ggplotly(p)
80+
fig <- ggplotly(fig)
8181
8282
fig
8383
```

‎ggplot2/2016-11-29-facet-grid.Rmd

Lines changed: 12 additions & 12 deletions
Original file line numberDiff line numberDiff line change
@@ -25,9 +25,9 @@ library(plotly)
2525
fig <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
2626
2727
# Divide by levels of "sex", in the vertical direction
28-
fig <- p + facet_grid(sex ~ .)
28+
fig <- fig facet_grid(sex ~ .)
2929
30-
fig <- ggplotly(p)
30+
fig <- ggplotly(fig)
3131
3232
fig
3333
```
@@ -41,9 +41,9 @@ library(plotly)
4141
fig <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
4242
4343
# Divide by levels of "sex", in the horizontal direction
44-
fig <- p + facet_grid(. ~ sex)
44+
fig <- fig facet_grid(. ~ sex)
4545
46-
fig <- ggplotly(p)
46+
fig <- ggplotly(fig)
4747
4848
fig
4949
```
@@ -57,9 +57,9 @@ library(plotly)
5757
fig <- ggplot(tips, aes(x=total_bill)) + geom_histogram(binwidth=2,colour="white")
5858
5959
# Histogram of total_bill, divided by sex and smoker
60-
fig <- p + facet_grid(sex ~ smoker)
60+
fig <- fig facet_grid(sex ~ smoker)
6161
62-
fig <- ggplotly(p)
62+
fig <- ggplotly(fig)
6363
6464
fig
6565
```
@@ -73,9 +73,9 @@ library(plotly)
7373
fig <- ggplot(tips, aes(x=total_bill)) + geom_histogram(binwidth=2,colour="white")
7474
7575
# Same as above, with scales="free_y"
76-
fig <- p + facet_grid(sex ~ smoker, scales="free_y")
76+
fig <- fig facet_grid(sex ~ smoker, scales="free_y")
7777
78-
fig <- ggplotly(p)
78+
fig <- ggplotly(fig)
7979
8080
fig
8181
```
@@ -89,9 +89,9 @@ library(plotly)
8989
fig <- ggplot(tips, aes(x=total_bill)) + geom_histogram(binwidth=2,colour="white")
9090
9191
# With panels that have the same scaling, but different range (and therefore different physical sizes)
92-
fig <- p + facet_grid(sex ~ smoker, scales="free", space="free")
92+
fig <- fig facet_grid(sex ~ smoker, scales="free", space="free")
9393
94-
fig <- ggplotly(p)
94+
fig <- ggplotly(fig)
9595
9696
fig
9797
```
@@ -117,7 +117,7 @@ fig <- ggplot(mymelt, aes(x = mydate, y = value)) +
117117
axis.ticks = element_blank(),
118118
panel.grid.minor = element_blank())
119119
120-
fig <- ggplotly(p)
120+
fig <- ggplotly(fig)
121121
122122
fig
123123
```
@@ -141,7 +141,7 @@ fig <- ggplot(dat, aes(x=date, y=value, color=location, group=location)) +
141141
geom_line()+
142142
facet_grid(product ~ ., scale = "free_y")
143143
144-
fig <- ggplotly(p)
144+
fig <- ggplotly(fig)
145145
146146
fig
147147
```

‎ggplot2/2016-11-29-facet-wrap.Rmd

Lines changed: 7 additions & 7 deletions
Original file line numberDiff line numberDiff line change
@@ -24,9 +24,9 @@ library(plotly)
2424
fig <- ggplot(tips, aes(x=total_bill, y=tip/total_bill)) + geom_point(shape=1)
2525
2626
# Divide by day, going horizontally and wrapping with 2 columns
27-
fig <- p + facet_wrap( ~ day, ncol=2)
27+
fig <- fig facet_wrap( ~ day, ncol=2)
2828
29-
fig <- ggplotly(p)
29+
fig <- ggplotly(fig)
3030
3131
fig
3232
```
@@ -51,7 +51,7 @@ tolerance <- within(tolerance, {
5151
fig <- ggplot(data = tolerance, aes(x = time, y = tolerance)) + geom_point() +
5252
stat_smooth(method = "lm", se = FALSE) + facet_wrap(~id)
5353
54-
fig <- ggplotly(p)
54+
fig <- ggplotly(fig)
5555
5656
fig
5757
```
@@ -67,7 +67,7 @@ fig <- ggplot(mpg, aes(displ, hwy))+
6767
stat_smooth()+
6868
facet_wrap(~year)
6969
70-
fig <- ggplotly(p)
70+
fig <- ggplotly(fig)
7171
7272
fig
7373
```
@@ -89,7 +89,7 @@ fig <- ggplot(df, aes(carat, price)) +
8989
geom_point() +
9090
facet_wrap(~ clarity)
9191
92-
fig <- ggplotly(p)
92+
fig <- ggplotly(fig)
9393
9494
fig
9595
```
@@ -112,7 +112,7 @@ fig <- ggplot(df, aes(carat, price)) +
112112
facet_wrap(~ clarity) +
113113
ggtitle("Diamonds dataset facetted by clarity")
114114
115-
fig <- ggplotly(p)
115+
fig <- ggplotly(fig)
116116
117117
fig
118118
```
@@ -135,7 +135,7 @@ fig <- ggplot(df, aes(carat, price)) +
135135
facet_wrap(~ clarity) +
136136
ggtitle("Diamonds dataset facetted by clarity")
137137
138-
fig <- ggplotly(p)
138+
fig <- ggplotly(fig)
139139
140140
fig
141141
```

‎ggplot2/2016-11-29-geom_abline.Rmd

Lines changed: 10 additions & 10 deletions
Original file line numberDiff line numberDiff line change
@@ -32,7 +32,7 @@ fig <- ggplot(dat, aes(x=rating)) +
3232
geom_vline(aes(xintercept=mean(rating, na.rm=T)), # Ignore NA values for mean
3333
color="red", linetype="dashed", size=1)
3434
35-
fig <- ggplotly(p)
35+
fig <- ggplotly(fig)
3636
3737
3838
fig
@@ -52,7 +52,7 @@ fig <- ggplot(dat, aes(x=rating, fill=cond)) +
5252
geom_vline(data=cdat, aes(xintercept=rating.mean),
5353
linetype="dashed", size=1)
5454
55-
fig <- ggplotly(p)
55+
fig <- ggplotly(fig)
5656
5757
5858
fig
@@ -72,7 +72,7 @@ fig <- ggplot(dat, aes(x=rating)) + geom_histogram(binwidth=.5, colour="black",
7272
geom_vline(data=cdat, aes(xintercept=rating.mean),
7373
linetype="dashed", size=1, colour="red")
7474
75-
fig <- ggplotly(p)
75+
fig <- ggplotly(fig)
7676
7777
7878
fig
@@ -93,7 +93,7 @@ fig <- ggplot(dat, aes(x=rating, colour=cond)) +
9393
linetype="dashed", size=1)
9494
9595
96-
fig <- ggplotly(p)
96+
fig <- ggplotly(fig)
9797
9898
9999
fig
@@ -134,9 +134,9 @@ fig <- ggplot(dat, aes(x=xval, y=yval, colour=cond)) +
134134
geom_point()
135135
136136
# Add a horizontal line
137-
fig <- p + geom_hline(aes(yintercept=10))
137+
fig <- fig geom_hline(aes(yintercept=10))
138138
139-
fig <- ggplotly(p)
139+
fig <- ggplotly(fig)
140140
141141
142142
fig
@@ -180,11 +180,11 @@ mean1 <- mean(dat[dat$cond == "control", "xval"])
180180
mean2 <- mean(dat[dat$cond == "treatment", "xval"])
181181
182182
# Add colored lines for the mean xval of each group
183-
fig <- p +
183+
fig <- fig
184184
geom_vline(aes(xintercept=mean1), colour="green") +
185185
geom_vline(aes(xintercept=mean2), colour="lightblue")
186186
187-
fig <- ggplotly(p)
187+
fig <- ggplotly(fig)
188188
189189
190190
fig
@@ -224,10 +224,10 @@ dat <- read.table(header=TRUE, text='
224224
fig <- ggplot(dat, aes(x=xval, y=yval, colour=cond)) + geom_point()
225225
226226
# Add a red dashed vertical line
227-
fig <- p + geom_hline(aes(yintercept=10)) +
227+
fig <- fig geom_hline(aes(yintercept=10)) +
228228
geom_vline(aes(xintercept=11.5), colour="#BB0000", linetype="dashed")
229229
230-
fig <- ggplotly(p)
230+
fig <- ggplotly(fig)
231231
232232
fig
233233
```

0 commit comments

Comments
 (0)