using ggplot2 with data.table to produce multiple .pdfs produces all data on each plot

debugcn 投稿 Dev

iembry

I have the same example as before (interpolation of grouped data using data.table), but here I am trying to use ggplot2 to create a single .pdf plot for each site_no. Instead of the data for each site_no printed on a single .pdf, all of the data from all of the plots are printed on each site_no named .pdf. Can you assist?

Thank you.

Irucka

library(data.table)
library(ggplot2)

tempbigdata1 <- data.table(c(14.80, 14.81, 14.82), c(7900, 7920, 7930),      c("02437100", "02437100", "02437100"))

tempbigdata2 <- data.table(c(9.98, 9.99, 10.00), c(816, 819, 821), c("02446500", "02446500", "02446500"))

tempbigdata3 <- data.table(c(75.65, 75.66, 75.67), c(23600, 23700, 23800), c("02467000", "02467000", "02467000"))

tempsbigdata <- rbind(tempbigdata1, tempbigdata2, tempbigdata3)

setnames(tempsbigdata,c("depth", "discharge", "site_no"))

setkey(tempsbigdata, site_no)

tempsbigdata
depth       discharge   site_no
1: 14.80    7900        02437100
2: 14.81    7920        02437100
3: 14.82    7930        02437100
4:  9.98    816         02446500
5:  9.99    819         02446500
6: 10.00    821         02446500
7: 75.65    23600       02467000
8: 75.66    23700       02467000
9: 75.67    23800       02467000

ratingsplot <- tempsbigdata[,list(discharge,depth),by=site_no]

for (u in unique(ratingsplot$site_no)) {pdf(file = file.path("/plots/",   paste0(u, "_rating.pdf", sep = "")))
p <- ggplot(ratingsplot, aes(x = discharge, y = depth, group = site_no))
print(p <- p + geom_point() + theme_bw())
dev.off()
}

IRTFM

Try modifying the data argument to ggplot(ratingsplot[site_no==u],...

 p <- ggplot(ratingsplot[site_no==u], 
             aes(x = discharge, y = depth, group = site_no))

Other plotting paradigms have a subset argument that accepts a logical expression interpreted in the environment of the data argument, but I didn't see one documented or linked to from the `?ggplot help page.

この記事はインターネットから収集されたものであり、転載の際にはソースを示してください。

侵害の場合は、連絡してください[email protected]

編集2021-06-23

コメントを追加

サインイン

分類Dev

Related 関連記事

記事

using ggplot2 with data.table to produce multiple .pdfs produces all data on each plot

using ggplot2 with data.table to produce multiple .pdfs produces all data on each plot

Combining multiple data frames in one plot using ggplot2

Plot multiple data using for loop, pyplot and genfromtxt

Line Plot subset data with ggplot2 (facet)

Data scraping: How to read all table content from multiple pages (using next page)?

How to plot multiple time series with a reverse barplot on the secondary axis using ggplot2?

Trying to display all data from database table into Jtable using reflection

rolling average to multiple variables in R using data.table package

matplotlib - multiple markers for a plot based on additional data

will 'val' produce mutable data?

Plot multiple ROC curves with ggplot2 in different layers

how to plot multiple area plots with ggplot2?

Search data from multiple table

multiple data sources to one table

Retrieving data from table 1 using table 2 in the order of table 2 data

Can I plot a percentage of subcategory in ggplot without summarizing a long format data table?

Add other series to panel/facet plot using ggplot2

I need specific table data for each users

Rails: each for multiple and one object data

How to filter a data table with each items in a object using RowFilter in c#

Display table data using angularjs

Data table aggregation and using toString()

Left join using Data Table

laravel pivot table return all related data

Extract all data between multiple vertical bars

ggplot2 add separate legend each for two Y axes in facet plot

Laravel: How to query data from multiple table?

Multiple conditions for r data.table calculation

r data table subset multiple conditions patterns

Plotting multiple lines on a single graph using Shiny and ggplot2