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

Skip to content

Commit 0ee9483

Browse files
chriddypchriddyp
committed
remove r/ggplot2 creds; add ggplotly filenames; format ggplotly code
1 parent d97640d commit 0ee9483

File tree

92 files changed

+337
-246
lines changed

Some content is hidden

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

92 files changed

+337
-246
lines changed

‎auto-docs/chart-types/bar/gg-basic-bar/ggplot2/code.txt

Lines changed: 4 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,8 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
# Consider the following data frame
79
researchers <- data.frame(
810
country = c("Canada", "Canada", "Germany", "USA"),
@@ -13,5 +15,6 @@ researchers <- data.frame(
1315
# Let us plot the number of papers (y) per name (x)
1416
plt <- ggplot(researchers, aes(x = name, y = papers)) + geom_bar(stat = "identity")
1517

16-
out <- py$ggplotly(plt)
18+
out <- py$ggplotly(plt, kwargs=list(filename="gg-basic-bar", fileopt="overwrite"))
19+
1720
plotly_url <- out$response$url

‎auto-docs/chart-types/facets/facet_wrap/ggplot2/code.txt

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -4,9 +4,11 @@ require(lattice)
44
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
55
# Find your api_key here: {{BASE_URL}}/settings/api
66

7+
py <- plotly()
8+
79
w <- ggplot(data=barley, aes(x=yield, y=variety, color=year)) +
8-
geom_point() +
9-
facet_wrap(~site)
10+
geom_point() +
11+
facet_wrap(~site)
1012

11-
out <- py$ggplotly(w)
13+
out <- py$ggplotly(w, kwargs=list(filename="facet_wrap", fileopt="overwrite"))
1214
plotly_url <- out$response$url

‎auto-docs/chart-types/functions/x-squared/ggplot2/code.txt

Lines changed: 5 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -3,12 +3,14 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
eq <- function(x) {x*x}
79
tmp <- data.frame(x=1:50, y=eq(1:50))
810

9-
p <- qplot(x, y, data=tmp, xlab="X-axis", ylab="Y-axis")
10-
c <- stat_function(fun=eq)
11+
p <- qplot(x, y, data=tmp, xlab="X-axis", ylab="Y-axis") +
12+
stat_function(fun=eq)
1113

12-
out <- py$ggplotly(p + c)
14+
out <- py$ggplotly(p, kwargs=list(filename="x-squared", fileopt="overwrite"))
1315

1416
plotly_url <- out$response$url

‎auto-docs/chart-types/geom_polygon/geom_polygon_1/ggplot2/code.txt

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,8 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
ids <- factor(c("1.1", "2.1", "1.2", "2.2", "1.3", "2.3"))
79

810
values <- data.frame(
@@ -20,7 +22,8 @@ positions <- data.frame(
2022

2123
datapoly <- merge(values, positions, by=c("id"))
2224

23-
(p <- ggplot(datapoly, aes(x=x, y=y)) + geom_polygon(aes(fill=value, group=id)))
25+
p <- ggplot(datapoly, aes(x=x, y=y)) +
26+
geom_polygon(aes(fill=value, group=id))
2427

25-
out <- py$ggplotly(p)
28+
out <- py$ggplotly(p, kwargs=list(filename="geom_polygon_1", fileopt="overwrite"))
2629
plotly_url <- out$response$url

‎auto-docs/chart-types/gg-themes/few/ggplot2/code.txt

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,10 +4,12 @@ library("ggthemes")
44
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
55
# Find your api_key here: {{BASE_URL}}/settings/api
66

7+
py <- plotly()
8+
79
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
810
few <- (qplot(carat, price, data = dsamp, colour = cut) +
911
theme_few() +
1012
scale_colour_few())
1113

12-
out <- py$ggplotly(few)
14+
out <- py$ggplotly(few, kwargs=list(filename="few", fileopt="overwrite"))
1315
plotly_url <- out$response$url

‎auto-docs/chart-types/gg-themes/igray/ggplot2/code.txt

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,9 +4,11 @@ library("ggthemes")
44
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
55
# Find your api_key here: {{BASE_URL}}/settings/api
66

7+
py <- plotly()
8+
79
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
810
gray <- (qplot(carat, price, data = dsamp, colour = cut) +
911
theme_igray())
1012

11-
out <- py$ggplotly(gray)
13+
out <- py$ggplotly(gray, kwargs=list(filename="igray", fileopt="overwrite"))
1214
plotly_url <- out$response$url

‎auto-docs/chart-types/gg-themes/tableau/ggplot2/code.txt

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,10 +4,12 @@ library("ggthemes")
44
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
55
# Find your api_key here: {{BASE_URL}}/settings/api
66

7+
py <- plotly()
8+
79
dsamp <- diamonds[sample(nrow(diamonds), 1000), ]
810
tableau <- (qplot(carat, price, data = dsamp, colour = cut) +
911
theme_igray() +
1012
scale_colour_tableau())
1113

12-
out <- py$ggplotly(tableau)
14+
out <- py$ggplotly(tableau, kwargs=list(filename="tableau", fileopt="overwrite"))
1315
plotly_url <- out$response$url

‎auto-docs/chart-types/histogram/geom_histogram/ggplot2/code.txt

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,11 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6-
m <- ggplot(movies, aes(x=rating))
7-
out <- py$ggplotly(m + geom_histogram(aes(weight = votes)))
6+
py <- plotly()
7+
8+
m <- ggplot(movies, aes(x=rating)) +
9+
geom_histogram(aes(weight = votes))
10+
11+
out <- py$ggplotly(m, kwargs=list(filename="geom_histogram", fileopt="overwrite"))
812

913
plotly_url <- out$response$url

‎auto-docs/chart-types/line_and_scatter/gg-alpha/ggplot2/code.txt

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,8 +3,10 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
prettyPlot <- ggplot(data=diamonds, aes(x=carat, y=price, colour=clarity))
79
prettyPlot <- prettyPlot + geom_point(alpha = 1/10)
8-
out <- py$ggplotly(prettyPlot)
10+
out <- py$ggplotly(prettyPlot, kwargs=list(filename="gg-alpha", fileopt="overwrite"))
911

1012
plotly_url <- out$response$url

‎auto-docs/chart-types/line_and_scatter/gg-basic-line/ggplot2/code.txt

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,12 +3,14 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
orange <- qplot(
79
age,
810
circumference,
911
data = Orange,
1012
colour = Tree,
1113
geom = "line")
1214

13-
out <- py$ggplotly(orange)
15+
out <- py$ggplotly(orange, kwargs=list(filename="gg-basic-line", fileopt="overwrite"))
1416
plotly_url <- out$response$url

‎auto-docs/chart-types/line_and_scatter/gg-basic-scatter/ggplot2/code.txt

Lines changed: 3 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,9 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
79

8-
out <- py$ggplotly(ggiris)
10+
out <- py$ggplotly(ggiris, kwargs=list(filename="gg-basic-scatter", fileopt="overwrite"))
911
plotly_url <- out$response$url

‎auto-docs/chart-types/line_and_scatter/gg-geom_line/ggplot2/code.txt

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,12 +4,16 @@ library(plyr)
44
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
55
# Find your api_key here: {{BASE_URL}}/settings/api
66

7+
py <- plotly()
8+
79
mry <- do.call(rbind, by(movies, round(movies$rating), function(df) {
810
nums <- tapply(df$length, df$year, length)
911
data.frame(rating=round(df$rating[1]), year = as.numeric(names(nums)), number=as.vector(nums))
1012
}))
1113

12-
p <- ggplot(mry, aes(x=year, y=number, group=rating))
13-
out <- py$ggplotly(p + geom_line(aes(colour = rating)) + scale_colour_gradient(low="red"))
14+
p <- ggplot(mry, aes(x=year, y=number, group=rating)) +
15+
geom_line(aes(colour = rating)) +
16+
scale_colour_gradient(low="red")
17+
out <- py$ggplotly(p, kwargs=list(filename="gg-geom_line", fileopt="overwrite"))
1418

1519
plotly_url <- out$response$url

‎auto-docs/chart-types/line_and_scatter/gg-geom_path/ggplot2/code.txt

Lines changed: 6 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,8 +4,12 @@ library(plyr)
44
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
55
# Find your api_key here: {{BASE_URL}}/settings/api
66

7+
py <- plotly()
8+
79
myear <- ddply(movies, .(year), colwise(mean, .(length, rating)))
8-
p <- ggplot(myear, aes(length, rating))
9-
out <- py$ggplotly(p + geom_path(colour='green') + scale_size(range = c(1, 3)))
10+
p <- ggplot(myear, aes(length, rating)) +
11+
geom_path(colour='green') +
12+
scale_size(range = c(1, 3))
13+
out <- py$ggplotly(p, kwargs=list(filename="gg-geom_path", fileopt="overwrite"))
1014

1115
plotly_url <- out$response$url

‎auto-docs/chart-types/line_and_scatter/gg-geom_point/ggplot2/code.txt

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,10 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6-
p <- ggplot(mtcars, aes(wt, mpg))
7-
out <- py$ggplotly(p + geom_point(aes(colour = factor(cyl))))
6+
py <- plotly()
7+
8+
p <- ggplot(mtcars, aes(wt, mpg)) +
9+
geom_point(aes(colour = factor(cyl)))
10+
out <- py$ggplotly(p, kwargs=list(filename="gg-geom_point", fileopt="overwrite"))
811

912
plotly_url <- out$response$url

‎auto-docs/chart-types/line_and_scatter/gg-geom_segment/ggplot2/code.txt

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,9 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6-
p <- ggplot(seals, aes(x = long, y = lat))
6+
py <- plotly()
77

8-
out <- py$ggplotly((p <- p + geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat))))
8+
p <- ggplot(seals, aes(x = long, y = lat)) +
9+
geom_segment(aes(xend = long + delta_long, yend = lat + delta_lat))
10+
out <- py$ggplotly(p, kwargs=list(filename="gg-geom_segment", fileopt="overwrite"))
911
plotly_url <- out$response$url

‎auto-docs/chart-types/line_and_scatter/gg-line-scatter/ggplot2/code.txt

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,6 +3,8 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
model <- lm(mpg ~ wt + factor(cyl), data=mtcars)
79
grid <- with(mtcars, expand.grid(
810
wt = seq(min(wt), max(wt), length = 20),
@@ -11,6 +13,7 @@ grid <- with(mtcars, expand.grid(
1113

1214
grid$mpg <- stats::predict(model, newdata=grid)
1315

14-
viz2 <- qplot(wt, mpg, data=mtcars, colour=factor(cyl)) + geom_line(data=grid)
15-
out <- py$ggplotly(viz2)
16+
viz2 <- qplot(wt, mpg, data=mtcars, colour=factor(cyl)) +
17+
geom_line(data=grid)
18+
out <- py$ggplotly(viz2, kwargs=list(filename="gg-line-scatter", fileopt="overwrite"))
1619
plotly_url <- out$response$url

‎auto-docs/chart-types/line_shapes/geom_step/ggplot2/code.txt

Lines changed: 5 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,8 +3,11 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
df <- data.frame(x=sort(rnorm(47)))
7-
p <- ggplot(df, aes(seq_along(x), x))
9+
p <- ggplot(df, aes(seq_along(x), x)) +
10+
geom_step()
811

9-
out <- py$ggplotly(p + geom_step())
12+
out <- py$ggplotly(p, kwargs=list(filename="geom_step", fileopt="overwrite"))
1013
plotly_url <- out$response$url

‎auto-docs/chart-types/maps/canadian-cities/ggplot2/code.txt

Lines changed: 6 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -3,11 +3,13 @@ library(plotly)
33
# Learn about API authentication here: {{BASE_URL}}/r/getting-started
44
# Find your api_key here: {{BASE_URL}}/settings/api
55

6+
py <- plotly()
7+
68
data(canada.cities, package="maps")
79
viz <- ggplot(canada.cities, aes(long, lat)) +
8-
borders(regions="canada", name="borders") +
9-
coord_equal() +
10-
geom_point(aes(text=name, size=pop), colour="red", alpha=1/2, name="cities")
10+
borders(regions="canada", name="borders") +
11+
coord_equal() +
12+
geom_point(aes(text=name, size=pop), colour="red", alpha=1/2, name="cities")
1113

12-
out <- py$ggplotly(viz)
14+
out <- py$ggplotly(viz, kwargs=list(filename="canadian-cities", fileopt="overwrite"))
1315
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/canadian_cities.r

Lines changed: 4 additions & 4 deletions
Original file line numberDiff line numberDiff line change
@@ -4,9 +4,9 @@ py <- plotly(username='TestBot', key='r1neazxo9w')
44

55
data(canada.cities, package="maps")
66
viz <- ggplot(canada.cities, aes(long, lat)) +
7-
borders(regions="canada", name="borders") +
8-
coord_equal() +
9-
geom_point(aes(text=name, size=pop), colour="red", alpha=1/2, name="cities")
7+
borders(regions="canada", name="borders") +
8+
coord_equal() +
9+
geom_point(aes(text=name, size=pop), colour="red", alpha=1/2, name="cities")
1010

11-
out <- py$ggplotly(viz)
11+
out <- py$ggplotly(viz, kwargs=list(filename="canadian-cities", fileopt="overwrite"))
1212
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/facet_wrap.r

Lines changed: 3 additions & 3 deletions
Original file line numberDiff line numberDiff line change
@@ -4,8 +4,8 @@ require(lattice)
44
py <- plotly(username='TestBot', key='r1neazxo9w')
55

66
w <- ggplot(data=barley, aes(x=yield, y=variety, color=year)) +
7-
geom_point() +
8-
facet_wrap(~site)
7+
geom_point() +
8+
facet_wrap(~site)
99

10-
out <- py$ggplotly(w)
10+
out <- py$ggplotly(w, kwargs=list(filename="facet_wrap", fileopt="overwrite"))
1111
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/few.r

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -8,5 +8,5 @@ few <- (qplot(carat, price, data = dsamp, colour = cut) +
88
theme_few() +
99
scale_colour_few())
1010

11-
out <- py$ggplotly(few)
11+
out <- py$ggplotly(few, kwargs=list(filename="few", fileopt="overwrite"))
1212
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/geom_histogram.r

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -2,7 +2,9 @@ library(plotly)
22

33
py <- plotly(username='TestBot', key='r1neazxo9w')
44

5-
m <- ggplot(movies, aes(x=rating))
6-
out <- py$ggplotly(m + geom_histogram(aes(weight = votes)))
5+
m <- ggplot(movies, aes(x=rating)) +
6+
geom_histogram(aes(weight = votes))
7+
8+
out <- py$ggplotly(m, kwargs=list(filename="geom_histogram", fileopt="overwrite"))
79

810
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/geom_polygon_1.r

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -19,7 +19,8 @@ positions <- data.frame(
1919

2020
datapoly <- merge(values, positions, by=c("id"))
2121

22-
(p <- ggplot(datapoly, aes(x=x, y=y)) + geom_polygon(aes(fill=value, group=id)))
22+
p <- ggplot(datapoly, aes(x=x, y=y)) +
23+
geom_polygon(aes(fill=value, group=id))
2324

24-
out <- py$ggplotly(p)
25+
out <- py$ggplotly(p, kwargs=list(filename="geom_polygon_1", fileopt="overwrite"))
2526
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/geom_step.r

Lines changed: 3 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -3,7 +3,8 @@ library(plotly)
33
py <- plotly(username='TestBot', key='r1neazxo9w')
44

55
df <- data.frame(x=sort(rnorm(47)))
6-
p <- ggplot(df, aes(seq_along(x), x))
6+
p <- ggplot(df, aes(seq_along(x), x)) +
7+
geom_step()
78

8-
out <- py$ggplotly(p + geom_step())
9+
out <- py$ggplotly(p, kwargs=list(filename="geom_step", fileopt="overwrite"))
910
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/gg_alpha.r

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,6 +4,6 @@ py <- plotly(username='TestBot', key='r1neazxo9w')
44

55
prettyPlot <- ggplot(data=diamonds, aes(x=carat, y=price, colour=clarity))
66
prettyPlot <- prettyPlot + geom_point(alpha = 1/10)
7-
out <- py$ggplotly(prettyPlot)
7+
out <- py$ggplotly(prettyPlot, kwargs=list(filename="gg-alpha", fileopt="overwrite"))
88

99
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/gg_basic_bar.r

Lines changed: 2 additions & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -12,5 +12,6 @@ researchers <- data.frame(
1212
# Let us plot the number of papers (y) per name (x)
1313
plt <- ggplot(researchers, aes(x = name, y = papers)) + geom_bar(stat = "identity")
1414

15-
out <- py$ggplotly(plt)
15+
out <- py$ggplotly(plt, kwargs=list(filename="gg-basic-bar", fileopt="overwrite"))
16+
1617
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/gg_basic_line.r

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -9,5 +9,5 @@ orange <- qplot(
99
colour = Tree,
1010
geom = "line")
1111

12-
out <- py$ggplotly(orange)
12+
out <- py$ggplotly(orange, kwargs=list(filename="gg-basic-line", fileopt="overwrite"))
1313
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/gg_basic_scatter.r

Lines changed: 1 addition & 1 deletion
Original file line numberDiff line numberDiff line change
@@ -4,5 +4,5 @@ py <- plotly(username='TestBot', key='r1neazxo9w')
44

55
ggiris <- qplot(Petal.Width, Sepal.Length, data = iris, color = Species)
66

7-
out <- py$ggplotly(ggiris)
7+
out <- py$ggplotly(ggiris, kwargs=list(filename="gg-basic-scatter", fileopt="overwrite"))
88
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/gg_geom_line.r

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -8,7 +8,9 @@ mry <- do.call(rbind, by(movies, round(movies$rating), function(df) {
88
data.frame(rating=round(df$rating[1]), year = as.numeric(names(nums)), number=as.vector(nums))
99
}))
1010

11-
p <- ggplot(mry, aes(x=year, y=number, group=rating))
12-
out <- py$ggplotly(p + geom_line(aes(colour = rating)) + scale_colour_gradient(low="red"))
11+
p <- ggplot(mry, aes(x=year, y=number, group=rating)) +
12+
geom_line(aes(colour = rating)) +
13+
scale_colour_gradient(low="red")
14+
out <- py$ggplotly(p, kwargs=list(filename="gg-geom_line", fileopt="overwrite"))
1315

1416
plotly_url <- out$response$url

‎auto-docs/executables/ggplot2/gg_geom_path.r

Lines changed: 4 additions & 2 deletions
Original file line numberDiff line numberDiff line change
@@ -4,7 +4,9 @@ library(plyr)
44
py <- plotly(username='TestBot', key='r1neazxo9w')
55

66
myear <- ddply(movies, .(year), colwise(mean, .(length, rating)))
7-
p <- ggplot(myear, aes(length, rating))
8-
out <- py$ggplotly(p + geom_path(colour='green') + scale_size(range = c(1, 3)))
7+
p <- ggplot(myear, aes(length, rating)) +
8+
geom_path(colour='green') +
9+
scale_size(range = c(1, 3))
10+
out <- py$ggplotly(p, kwargs=list(filename="gg-geom_path", fileopt="overwrite"))
911

1012
plotly_url <- out$response$url

0 commit comments

Comments
 (0)