Description Usage Arguments Value Author(s) Examples
Automatically generated fish drawings via ggplot2
1 |
data |
Path for *.json via |
x |
see |
y |
see |
group |
see |
... |
see |
ggplot object.
Liuyong Ding ly_ding@126.com
1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 | ## Not run:
# fish drawings via plot
file <- system.file("extdata",package = "rfishdraw")
dat <- readRDS(paste0(file,"/","output_json.rds"))
for (i in seq(length(dat))) {
dat[[i]] <- cbind(dat[[i]],i)
}
plot(NA, xlim = c(0,520),ylim = c(-320,0),axes = F,xlab = " ",ylab = " ")
for(i in seq(length(dat))) {
lines(x = dat[[i]][,1],y = -dat[[i]][,2], lwd=2, col = "blue")
}
# fish drawings via ggplot2
fish_draw()
## End(Not run)
|
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.