[R] [R studio] Plotting of line chart for each columns at 1 page

You need to do some studying! ggplot is built on the grid graphics system,
which is separate from the base graphics system. The par() function is part
of the *base* graphics system and so ignored by ggplot.

Others may offer you solutions using the "faceting" functionality of
ggplot. But you really should reading up on this on your own. There are
many good tutorials on ggplot2 that are available on the web.

-- Bert

Bert Gunter

"The trouble with having an open mind is that people keep coming along and
sticking things into it."
-- Opus (aka Berkeley Breathed in his "Bloom County" comic strip )

On Tue, Nov 20, 2018 at 10:19 AM Subhamitra Patra <

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for each
sheet. The 1st sheet consists of 38 columns. So, I want to plot 38 separate
line charts and arrange them in par(mfrow = c(4, 10)) order. Please suggest
me how to do this. I have tried with the following code by running a loop
inside of a sheet, but it is not working. Further, I want to run loops for
each sheet.
par(mfrow = c(4, 10))
loop.vector <- 1:38
for (i in loop.vector)
x <- JJ[,i]
library(ggplot2)
library(cowplot)
plot.mpg <- ggplot(mpg, aes(x,
main = paste ("country", i),
xlab = "Scores",
xlim = c(1,500)
y = colnames[i,], colour = factor(cyl))) +
geom_line(size=2.5)
save_plot("mpg.png", plot.mpg,
base_aspect_ratio = 1.3)
I want to give my X axis name as scores of (1,500) and Y axis as the
particular column names for all graphs.
Please suggest.
Thanks in advance.
--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*
[image: Mailtrack]
<
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&
Sender
notified by
Mailtrack
<
https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&
11/20/18,
11:49:42 PM
[[alternative HTML version deleted]]
______________________________________________
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide
http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

[[alternative HTML version deleted]]

______________________________________________
R-***@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Jim Lemon

2018-11-20 23:08:02 UTC

Hi Subhamitra,
As Bert noted, you are mixing base and grid graphics. Here is a simple
way to get a plot like what you described. It will probably take more
work to find what you actually do want and discover how to get it.

for(i in 1:38) assign(paste0("veh",i),rep(sample(10:35,1),10)+runif(10,-4,4))
mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10,
veh11,veh12,veh13,veh14,veh15,veh16,veh17,veh18,veh19,veh20,
veh21,veh22,veh23,veh24,veh25,veh26,veh27,veh28,veh29,veh30,
veh31,veh32,veh33,veh34,veh35,veh36,veh37,veh38)
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab=names(mpg)[i],main="MPG by distance")
dev.off()

Jim

On Wed, Nov 21, 2018 at 5:19 AM Subhamitra Patra

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for each
sheet. The 1st sheet consists of 38 columns. So, I want to plot 38 separate
line charts and arrange them in par(mfrow = c(4, 10)) order. Please suggest
me how to do this. I have tried with the following code by running a loop
inside of a sheet, but it is not working. Further, I want to run loops for
each sheet.
par(mfrow = c(4, 10))
loop.vector <- 1:38
for (i in loop.vector)
x <- JJ[,i]
library(ggplot2)
library(cowplot)
plot.mpg <- ggplot(mpg, aes(x,
main = paste ("country", i),
xlab = "Scores",
xlim = c(1,500)
y = colnames[i,], colour = factor(cyl))) +
geom_line(size=2.5)
save_plot("mpg.png", plot.mpg,
base_aspect_ratio = 1.3)
I want to give my X axis name as scores of (1,500) and Y axis as the
particular column names for all graphs.
Please suggest.
Thanks in advance.
--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
11/20/18,
11:49:42 PM
[[alternative HTML version deleted]]
______________________________________________
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

______________________________________________
R-***@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Subhamitra Patra

2018-11-21 01:37:49 UTC

Hello Sir,

Thanks, I'll check them out.

But, I am not understanding 2 points of your suggestion.

1. In the line,* "*for(i in 1:38) assign(paste0("veh",i),rep(sam
ple(10:35,1),10)+runif(10,-4,*4))", *what veh, rep(sample(10:35,1),10)
+runif(10,-4,4)) indicate? Here veh indicates columns right?
*2. In the
line, mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10,*
* veh11,veh12,veh13,veh14,**veh15,veh16,veh17,veh18,veh19,**veh20,*
* veh21,veh22,veh23,veh24,**veh25,veh26,veh27,veh28,veh29,**veh30,*
* veh31,veh32,veh33,veh34,**veh35,veh36,veh37,veh38) ** , *veh[i]
indicates column sequence, right? I need to give column names as the header
of their respective graphs. Please suggest me How to add this?

I am very new to R and therefore asking you these queries which might be
simple for you.

I expect positive help from you.

Thanks for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
11/21/18,
7:02:18 AM

Post by Jim Lemon
Hi Subhamitra,
As Bert noted, you are mixing base and grid graphics. Here is a simple
way to get a plot like what you described. It will probably take more
work to find what you actually do want and discover how to get it.
for(i in 1:38)
assign(paste0("veh",i),rep(sample(10:35,1),10)+runif(10,-4,4))
mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10,
veh11,veh12,veh13,veh14,veh15,veh16,veh17,veh18,veh19,veh20,
veh21,veh22,veh23,veh24,veh25,veh26,veh27,veh28,veh29,veh30,
veh31,veh32,veh33,veh34,veh35,veh36,veh37,veh38)
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab=names(mpg)[i],main="MPG by distance")
dev.off()
Jim
On Wed, Nov 21, 2018 at 5:19 AM Subhamitra Patra

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for each
sheet. The 1st sheet consists of 38 columns. So, I want to plot 38

separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order. Please

suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by running a loop
inside of a sheet, but it is not working. Further, I want to run loops

for

Post by Subhamitra Patra
each sheet.
par(mfrow = c(4, 10))
loop.vector <- 1:38
for (i in loop.vector)
x <- JJ[,i]
library(ggplot2)
library(cowplot)
plot.mpg <- ggplot(mpg, aes(x,
main = paste ("country", i),
xlab = "Scores",
xlim = c(1,500)
y = colnames[i,], colour = factor(cyl))) +
geom_line(size=2.5)
save_plot("mpg.png", plot.mpg,
base_aspect_ratio = 1.3)
I want to give my X axis name as scores of (1,500) and Y axis as the
particular column names for all graphs.
Please suggest.
Thanks in advance.
--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*
[image: Mailtrack]
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
11/20/18,
11:49:42 PM
[[alternative HTML version deleted]]
______________________________________________
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*

[[alternative HTML version deleted]]

______________________________________________
R-***@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Jim Lemon

2018-11-21 01:47:07 UTC

Hi Subhamitra,

1. Here I manufacture some data so that the example is "reproducible", that
is anyone can run the code and get the same output that I do. Yes,
veh1...veh38 are the names of the variables.

2. Here I join the 38 variables I created into a data frame, which I think
is the input for your plotting routine. This names of the columns of the
data frame become the names of the variables.

When you say that you want the column names as the "header" (title) of each
plot, I think if you change the plotting loop to this:

pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()

you will get what you requested. Remember that I have done this in base
graphics, not ggplot.

Jim

On Wed, Nov 21, 2018 at 12:37 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, I'll check them out.
But, I am not understanding 2 points of your suggestion.
1. In the line,* "*for(i in 1:38) assign(paste0("veh",i),rep(sam
ple(10:35,1),10)+runif(10,-4,*4))", *what veh, rep(sample(10:35,1),10)
+runif(10,-4,4)) indicate? Here veh indicates columns right?
*2. In the
line, mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10,*
* veh11,veh12,veh13,veh14,**veh15,veh16,veh17,veh18,veh19,**veh20,*
* veh21,veh22,veh23,veh24,**veh25,veh26,veh27,veh28,veh29,**veh30,*
* veh31,veh32,veh33,veh34,**veh35,veh36,veh37,veh38) ** , *veh[i]
indicates column sequence, right? I need to give column names as the header
of their respective graphs. Please suggest me How to add this?
I am very new to R and therefore asking you these queries which might be
simple for you.
I expect positive help from you.
Thanks for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:02:18 AM

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for each
sheet. The 1st sheet consists of 38 columns. So, I want to plot 38

separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order. Please

suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by running a

loop

Post by Subhamitra Patra
inside of a sheet, but it is not working. Further, I want to run loops

for

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*

Subhamitra Patra

2018-11-21 02:21:36 UTC

Hello Sir,

Thanks, now I understood and will check them out.

One more thing I want to ask that I have 1 excel file with multiple (i.e.
12 sheets). Each sheet contains different number of columns, for instance,
1st sheet contains 38 columns, 2nd sheet contains 10 columns, Third 2
columns, 4th 1 column and so on. Actually, due to some missing observations
in these columns, I couldn't add them in 1 sheet.

As you suggested the below code in the last mail,

par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()

Do I need to run the code separately for each sheet?

Actually, in par (mfrow=c(4,10)), the plot for 38 columns will be added,
the space for extra 2 will remain as empty. So, I thought to add plots for
the columns from the next sheet in those emptied space.

Is there any way that I can add plots from the next sheets of the same
excel file in the emptied space? In other words, Is there any way to append
plots from all sheets?

Kindly help a new R learner Sir for which I shall be always grateful to you.

Thank you very much for your kind help.

[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
11/21/18,
7:30:30 AM

Post by Jim Lemon
Hi Subhamitra,
1. Here I manufacture some data so that the example is "reproducible",
that is anyone can run the code and get the same output that I do. Yes,
veh1...veh38 are the names of the variables.
2. Here I join the 38 variables I created into a data frame, which I think
is the input for your plotting routine. This names of the columns of the
data frame become the names of the variables.
When you say that you want the column names as the "header" (title) of
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
you will get what you requested. Remember that I have done this in base
graphics, not ggplot.
Jim
On Wed, Nov 21, 2018 at 12:37 PM Subhamitra Patra <

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for each
sheet. The 1st sheet consists of 38 columns. So, I want to plot 38

separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order. Please

suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by running a

loop

Post by Subhamitra Patra
inside of a sheet, but it is not working. Further, I want to run loops

for

Post by Subhamitra Patra
geom_line(size=2.5)
save_plot("mpg.png", plot.mpg,
base_aspect_ratio = 1.3)
I want to give my X axis name as scores of (1,500) and Y axis as the
particular column names for all graphs.
Please suggest.
Thanks in advance.
--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*
[image: Mailtrack]
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*

Jim Lemon

2018-11-21 02:48:08 UTC

I assume that you are importing the Excel sheets separately. When you
import a sheet, you can get the number of columns with this:

ncol(<name of data frame>)

Using the data frame "mpg" that I created:

ncolumns<-ncol(mpg)
ncolumns
[1] 38

You can then substitute "ncolumns" each time you import another sheet. How
you want to deal with the varying numbers of columns you will get is
another matter. One way is to work out the total number of plots you want
and put them all onto one PDF page. Say you have 50 plots overall. You
could start a very big PDF page:

pdf("allplots.pdf",width=30,height=15)
par(mfrow=c(5,10))
# import your first sheet here (38 columns)
ncolumns<-ncol(mpg)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your second sheet here, say 10
columns
# import your second sheet here, (10 columns)
ncolumns<-ncol(mpg1)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg1[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your third sheet here, say 2
columns
# import your second sheet here, (2 columns)
ncolumns<-ncol(mpg2)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg2[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
# finish plotting
dev.off()

You would then have 50 plots on the PDF page. I am assuming that all of
your sheets have the same number of rows and a few other things. This seems
like a lot of plots, and I suspect that you could work out a better way to
display all this information.

Jim

Post by Subhamitra Patra
Hello Sir,
Thanks, now I understood and will check them out.
One more thing I want to ask that I have 1 excel file with multiple (i.e.
12 sheets). Each sheet contains different number of columns, for instance,
1st sheet contains 38 columns, 2nd sheet contains 10 columns, Third 2
columns, 4th 1 column and so on. Actually, due to some missing observations
in these columns, I couldn't add them in 1 sheet.
As you suggested the below code in the last mail,
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
Do I need to run the code separately for each sheet?
Actually, in par (mfrow=c(4,10)), the plot for 38 columns will be added,
the space for extra 2 will remain as empty. So, I thought to add plots for
the columns from the next sheet in those emptied space.
Is there any way that I can add plots from the next sheets of the same
excel file in the emptied space? In other words, Is there any way to append
plots from all sheets?
Kindly help a new R learner Sir for which I shall be always grateful to you.
Thank you very much for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:30:30 AM

Post by Jim Lemon
Hi Subhamitra,
1. Here I manufacture some data so that the example is "reproducible",
that is anyone can run the code and get the same output that I do. Yes,
veh1...veh38 are the names of the variables.
2. Here I join the 38 variables I created into a data frame, which I
think is the input for your plotting routine. This names of the columns of
the data frame become the names of the variables.
When you say that you want the column names as the "header" (title) of
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
you will get what you requested. Remember that I have done this in base
graphics, not ggplot.
Jim
On Wed, Nov 21, 2018 at 12:37 PM Subhamitra Patra <

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for each
sheet. The 1st sheet consists of 38 columns. So, I want to plot 38

separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order. Please

suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by running a

loop

Post by Subhamitra Patra
inside of a sheet, but it is not working. Further, I want to run

loops for

factor(cyl))) +

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*

Subhamitra Patra

2018-11-21 03:52:04 UTC

Hello Sir,

Thank you very much. I will try it out and will let you the result.

The no. of rows varies per sheet by a different number of observations. Due
to different no. of rows or observations, I separated the columns in
different sheets.

*Will a different number of rows create a problem for appending all plots?*

Concerning your last suggestion "*This seems like a lot of plots, and I
suspect that you could work out a better way to display all this
information.*", I am doing a multi-country study and obtained results for
each country. I would summarize the final result at the end. But, for
displaying the information for each country, I thought the plot is the best
way to give a supplementary result on each country. Sir, in this context, I
would like to take your suggestion that Is the way what I am doing, right
to proceed? If any alternative way is available, please suggest me.

Thank you very much, Sir, for your kind help and suggestions.

[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
11/21/18,
9:12:14 AM

Post by Jim Lemon
I assume that you are importing the Excel sheets separately. When you
ncol(<name of data frame>)
ncolumns<-ncol(mpg)
ncolumns
[1] 38
You can then substitute "ncolumns" each time you import another sheet. How
you want to deal with the varying numbers of columns you will get is
another matter. One way is to work out the total number of plots you want
and put them all onto one PDF page. Say you have 50 plots overall. You
pdf("allplots.pdf",width=30,height=15)
par(mfrow=c(5,10))
# import your first sheet here (38 columns)
ncolumns<-ncol(mpg)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your second sheet here, say 10
columns
# import your second sheet here, (10 columns)
ncolumns<-ncol(mpg1)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg1[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your third sheet here, say 2
columns
# import your second sheet here, (2 columns)
ncolumns<-ncol(mpg2)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg2[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
# finish plotting
dev.off()
You would then have 50 plots on the PDF page. I am assuming that all of
your sheets have the same number of rows and a few other things. This seems
like a lot of plots, and I suspect that you could work out a better way to
display all this information.
Jim
On Wed, Nov 21, 2018 at 1:20 PM Subhamitra Patra <

Post by Jim Lemon
Hi Subhamitra,
1. Here I manufacture some data so that the example is "reproducible",
that is anyone can run the code and get the same output that I do. Yes,
veh1...veh38 are the names of the variables.
2. Here I join the 38 variables I created into a data frame, which I
think is the input for your plotting routine. This names of the columns of
the data frame become the names of the variables.
When you say that you want the column names as the "header" (title) of
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
you will get what you requested. Remember that I have done this in base
graphics, not ggplot.
Jim
On Wed, Nov 21, 2018 at 12:37 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, I'll check them out.
But, I am not understanding 2 points of your suggestion.
1. In the line,* "*for(i in 1:38) assign(paste0("veh",i),rep(sam
ple(10:35,1),10)+runif(10,-4,*4))", *what veh, rep(sample(10:35,1),10)
+runif(10,-4,4)) indicate? Here veh indicates columns right?
*2. In the
line, mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10,*
* veh11,veh12,veh13,veh14,**veh15,veh16,veh17,veh18,veh19,**veh20,*
* veh21,veh22,veh23,veh24,**veh25,veh26,veh27,veh28,veh29,**veh30,*
* veh31,veh32,veh33,veh34,**veh35,veh36,veh37,veh38) ** , *veh[i]
indicates column sequence, right? I need to give column names as the header
of their respective graphs. Please suggest me How to add this?
I am very new to R and therefore asking you these queries which might
be simple for you.
I expect positive help from you.
Thanks for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:02:18 AM

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for each
sheet. The 1st sheet consists of 38 columns. So, I want to plot 38

separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order. Please

suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by running a

loop

Post by Subhamitra Patra
inside of a sheet, but it is not working. Further, I want to run

loops for

factor(cyl))) +

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*

Jim Lemon

2018-11-21 04:09:47 UTC

For your first question, yes, you will need to adjust the number of "x"
values to match the number of "y" values. You can use the "nrow" function
to get that number. I don't really know what the abscissa scale is on your
plots, I just made up the data I used.

If you are comparing countries, you may want to divide the results into
countries of different characteristics, perhaps GDP or similar. Otherwise
you will end up with a quite large PDF page. This is okay if you are
viewing it electronically, but will present a challenge in hard copy.

Jim

Post by Subhamitra Patra
Hello Sir,
Thank you very much. I will try it out and will let you the result.
The no. of rows varies per sheet by a different number of observations.
Due to different no. of rows or observations, I separated the columns in
different sheets.
*Will a different number of rows create a problem for appending all plots?*
Concerning your last suggestion "*This seems like a lot of plots, and I
suspect that you could work out a better way to display all this
information.*", I am doing a multi-country study and obtained results
for each country. I would summarize the final result at the end. But, for
displaying the information for each country, I thought the plot is the best
way to give a supplementary result on each country. Sir, in this context, I
would like to take your suggestion that Is the way what I am doing, right
to proceed? If any alternative way is available, please suggest me.
Thank you very much, Sir, for your kind help and suggestions.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
9:12:14 AM

Post by Jim Lemon
I assume that you are importing the Excel sheets separately. When you
ncol(<name of data frame>)
ncolumns<-ncol(mpg)
ncolumns
[1] 38
You can then substitute "ncolumns" each time you import another sheet.
How you want to deal with the varying numbers of columns you will get is
another matter. One way is to work out the total number of plots you want
and put them all onto one PDF page. Say you have 50 plots overall. You
pdf("allplots.pdf",width=30,height=15)
par(mfrow=c(5,10))
# import your first sheet here (38 columns)
ncolumns<-ncol(mpg)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your second sheet here, say 10
columns
# import your second sheet here, (10 columns)
ncolumns<-ncol(mpg1)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg1[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your third sheet here, say 2
columns
# import your second sheet here, (2 columns)
ncolumns<-ncol(mpg2)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg2[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
# finish plotting
dev.off()
You would then have 50 plots on the PDF page. I am assuming that all of
your sheets have the same number of rows and a few other things. This seems
like a lot of plots, and I suspect that you could work out a better way to
display all this information.
Jim
On Wed, Nov 21, 2018 at 1:20 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, now I understood and will check them out.
One more thing I want to ask that I have 1 excel file with multiple
(i.e. 12 sheets). Each sheet contains different number of columns, for
instance, 1st sheet contains 38 columns, 2nd sheet contains 10 columns,
Third 2 columns, 4th 1 column and so on. Actually, due to some missing
observations in these columns, I couldn't add them in 1 sheet.
As you suggested the below code in the last mail,
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
Do I need to run the code separately for each sheet?
Actually, in par (mfrow=c(4,10)), the plot for 38 columns will be
added, the space for extra 2 will remain as empty. So, I thought to add
plots for the columns from the next sheet in those emptied space.
Is there any way that I can add plots from the next sheets of the same
excel file in the emptied space? In other words, Is there any way to append
plots from all sheets?
Kindly help a new R learner Sir for which I shall be always grateful to you.
Thank you very much for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:30:30 AM

Post by Jim Lemon
Hi Subhamitra,
1. Here I manufacture some data so that the example is "reproducible",
that is anyone can run the code and get the same output that I do. Yes,
veh1...veh38 are the names of the variables.
2. Here I join the 38 variables I created into a data frame, which I
think is the input for your plotting routine. This names of the columns of
the data frame become the names of the variables.
When you say that you want the column names as the "header" (title) of
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
you will get what you requested. Remember that I have done this in base
graphics, not ggplot.
Jim
On Wed, Nov 21, 2018 at 12:37 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, I'll check them out.
But, I am not understanding 2 points of your suggestion.
1. In the line,* "*for(i in 1:38) assign(paste0("veh",i),rep(sam
ple(10:35,1),10)+runif(10,-4,*4))", *what veh, rep(sample(10:35,1),10)
+runif(10,-4,4)) indicate? Here veh indicates columns right?
*2. In the
line, mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10,*
* veh11,veh12,veh13,veh14,**veh15,veh16,veh17,veh18,veh19,**veh20,*
* veh21,veh22,veh23,veh24,**veh25,veh26,veh27,veh28,veh29,**veh30,*
* veh31,veh32,veh33,veh34,**veh35,veh36,veh37,veh38) ** , *veh[i]
indicates column sequence, right? I need to give column names as the header
of their respective graphs. Please suggest me How to add this?
I am very new to R and therefore asking you these queries which might
be simple for you.
I expect positive help from you.
Thanks for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:02:18 AM

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for

each

Post by Subhamitra Patra
sheet. The 1st sheet consists of 38 columns. So, I want to plot 38

separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order. Please

suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by running

a loop

Post by Subhamitra Patra
inside of a sheet, but it is not working. Further, I want to run

loops for

factor(cyl))) +

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*

Jim Lemon

2018-11-21 07:51:07 UTC

Now we're getting somewhere. I suspect that each Excel sheet looks
something like this:

Year Tonga Samoa Fiji
2008 21.2 32.0 18.7
...
2017 23.7 31.9 19.3
# in the above there are three columns (countries) and ten rows
# import this sheet as "MPG3"
nrows<-nrow(MPG3) # nrows equals 10
ncols<-ncol(MPG3) # ncols equals 3
for(i in 1:ncols)
plot(seq(1:nrows,MPG3[,i],type="l",xlab="Distance",
ylab="MPG",main=names(MPG3)[i],xaxt="n")
axis(1,at=1:nrows,labels=MPG3$Year)

I probably have the structure of the imported data frame wrong, but I think
you can work that out.

Jim

As per your suggestion, *"you will need to adjust the number of "x"
values to match the number of "y" values. Now with the addition of the
nrow function, the code for each sheet will be*
*ncolumns<-ncol(mpg)*
* nrows<-nrow(mpg) *
*for(i in
1:ncolumns) plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i]) *
#####The no. of rows for the columns in one sheet will be the same. In the
X-axis, I need to mention Year which is the same for all columns in a
sheet. But, the starting year varies from one sheet to other.
*Sir, please suggest in case of any mistakes.*
Second, I will definitely consider your suggestions about the division of
sample by similar characteristics so that it can be easier to show in
graphical. Thank you very much, sir, for such creative and wonderful
suggestions.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
10:35:03 AM

Post by Jim Lemon
For your first question, yes, you will need to adjust the number of "x"
values to match the number of "y" values. You can use the "nrow" function
to get that number. I don't really know what the abscissa scale is on your
plots, I just made up the data I used.
If you are comparing countries, you may want to divide the results into
countries of different characteristics, perhaps GDP or similar. Otherwise
you will end up with a quite large PDF page. This is okay if you are
viewing it electronically, but will present a challenge in hard copy.
Jim
On Wed, Nov 21, 2018 at 2:51 PM Subhamitra Patra <

Post by Jim Lemon
I assume that you are importing the Excel sheets separately. When you
ncol(<name of data frame>)
ncolumns<-ncol(mpg)
ncolumns
[1] 38
You can then substitute "ncolumns" each time you import another sheet.
How you want to deal with the varying numbers of columns you will get is
another matter. One way is to work out the total number of plots you want
and put them all onto one PDF page. Say you have 50 plots overall. You
pdf("allplots.pdf",width=30,height=15)
par(mfrow=c(5,10))
# import your first sheet here (38 columns)
ncolumns<-ncol(mpg)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your second sheet here, say
10 columns
# import your second sheet here, (10 columns)
ncolumns<-ncol(mpg1)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg1[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your third sheet here, say 2
columns
# import your second sheet here, (2 columns)
ncolumns<-ncol(mpg2)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg2[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
# finish plotting
dev.off()
You would then have 50 plots on the PDF page. I am assuming that all of
your sheets have the same number of rows and a few other things. This seems
like a lot of plots, and I suspect that you could work out a better way to
display all this information.
Jim
On Wed, Nov 21, 2018 at 1:20 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, now I understood and will check them out.
One more thing I want to ask that I have 1 excel file with multiple
(i.e. 12 sheets). Each sheet contains different number of columns, for
instance, 1st sheet contains 38 columns, 2nd sheet contains 10 columns,
Third 2 columns, 4th 1 column and so on. Actually, due to some missing
observations in these columns, I couldn't add them in 1 sheet.
As you suggested the below code in the last mail,
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
Do I need to run the code separately for each sheet?
Actually, in par (mfrow=c(4,10)), the plot for 38 columns will be
added, the space for extra 2 will remain as empty. So, I thought to add
plots for the columns from the next sheet in those emptied space.
Is there any way that I can add plots from the next sheets of the same
excel file in the emptied space? In other words, Is there any way to append
plots from all sheets?
Kindly help a new R learner Sir for which I shall be always grateful to you.
Thank you very much for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:30:30 AM

Post by Jim Lemon
Hi Subhamitra,
1. Here I manufacture some data so that the example is
"reproducible", that is anyone can run the code and get the same output
that I do. Yes, veh1...veh38 are the names of the variables.
2. Here I join the 38 variables I created into a data frame, which I
think is the input for your plotting routine. This names of the columns of
the data frame become the names of the variables.
When you say that you want the column names as the "header" (title)
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
you will get what you requested. Remember that I have done this in
base graphics, not ggplot.
Jim
On Wed, Nov 21, 2018 at 12:37 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, I'll check them out.
But, I am not understanding 2 points of your suggestion.
1. In the line,* "*for(i in 1:38) assign(paste0("veh",i),rep(sam
ple(10:35,1),10)+runif(10,-4,*4))", *what veh, rep(sam
ple(10:35,1),10)+runif(10,-4,4)) indicate? Here veh indicates
columns right?
*2. In the
line, mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10,*
* veh11,veh12,veh13,veh14,**veh15,veh16,veh17,veh18,veh19,**veh20,*
* veh21,veh22,veh23,veh24,**veh25,veh26,veh27,veh28,veh29,**veh30,*
* veh31,veh32,veh33,veh34,**veh35,veh36,veh37,veh38) ** , *veh[i]
indicates column sequence, right? I need to give column names as the header
of their respective graphs. Please suggest me How to add this?
I am very new to R and therefore asking you these queries which
might be simple for you.
I expect positive help from you.
Thanks for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:02:18 AM

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for

each

Post by Subhamitra Patra
sheet. The 1st sheet consists of 38 columns. So, I want to plot

38 separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order.

Please suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by

running a loop

Post by Subhamitra Patra
inside of a sheet, but it is not working. Further, I want to run

loops for

factor(cyl))) +

Post by Subhamitra Patra
geom_line(size=2.5)
save_plot("mpg.png", plot.mpg,
base_aspect_ratio = 1.3)
I want to give my X axis name as scores of (1,500) and Y axis as

the

Post by Subhamitra Patra
particular column names for all graphs.
Please suggest.
Thanks in advance.
--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*
[image: Mailtrack]
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*

Subhamitra Patra

2018-11-21 08:27:13 UTC

Sir, in the bold portion of the below code, I have some confusion which I
am mentioning below that

"ylab="MPG",main=names(MPG3)[i],*xaxt="n"*)
axis(*1*,at=1:nrows,*labels=MPG3$Year*)"

1. Here, what *xaxt="n"* indicates? I think it indicates the no. of rows,
right?
2. 1 in the 2nd line represents the no. of graphs. Let suppose, 38
plots are having the same row, I need to mention them as *axis(38,
at=1:nrows)*, right?
3. *labels=**MPG3$Year *will give the name of all years in the X-axis,
right?

Kindly correct me if I am wrong.

Sir, here one thing I would like to ask, my data frequency is not yearly. I
obtained results from the daily data of the period from 1994-2017 (that
means the no. of rows will be 5655). But, as the daily period is very
unclear to mention in the X-axis, I wanted to give year name as the name of
the X-axis (that means, 1995, 1997, 1999 with the increment of 2 years up
to 2017).

Sir, please suggest me how to proceed with this?

Thank you very much for your kind help.

[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
11/21/18,
1:46:50 PM

Post by Jim Lemon
Now we're getting somewhere. I suspect that each Excel sheet looks
Year Tonga Samoa Fiji
2008 21.2 32.0 18.7
...
2017 23.7 31.9 19.3
# in the above there are three columns (countries) and ten rows
# import this sheet as "MPG3"
nrows<-nrow(MPG3) # nrows equals 10
ncols<-ncol(MPG3) # ncols equals 3
for(i in 1:ncols)
plot(seq(1:nrows,MPG3[,i],type="l",xlab="Distance",
ylab="MPG",main=names(MPG3)[i],xaxt="n")
axis(1,at=1:nrows,labels=MPG3$Year)
I probably have the structure of the imported data frame wrong, but I
think you can work that out.
Jim
On Wed, Nov 21, 2018 at 4:08 PM Subhamitra Patra <

As per your suggestion, *"you will need to adjust the number of "x"
values to match the number of "y" values. Now with the addition of the
nrow function, the code for each sheet will be*
*ncolumns<-ncol(mpg)*
* nrows<-nrow(mpg) *
*for(i in
1:ncolumns) plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i]) *
#####The no. of rows for the columns in one sheet will be the same. In
the X-axis, I need to mention Year which is the same for all columns in a
sheet. But, the starting year varies from one sheet to other.
*Sir, please suggest in case of any mistakes.*
Second, I will definitely consider your suggestions about the division of
sample by similar characteristics so that it can be easier to show in
graphical. Thank you very much, sir, for such creative and wonderful
suggestions.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
10:35:03 AM

Post by Subhamitra Patra
Hello Sir,
Thank you very much. I will try it out and will let you the result.
The no. of rows varies per sheet by a different number of observations.
Due to different no. of rows or observations, I separated the columns in
different sheets.
*Will a different number of rows create a problem for appending all plots?*
Concerning your last suggestion "*This seems like a lot of plots, and
I suspect that you could work out a better way to display all this
information.*", I am doing a multi-country study and obtained results
for each country. I would summarize the final result at the end. But, for
displaying the information for each country, I thought the plot is the best
way to give a supplementary result on each country. Sir, in this context, I
would like to take your suggestion that Is the way what I am doing, right
to proceed? If any alternative way is available, please suggest me.
Thank you very much, Sir, for your kind help and suggestions.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
9:12:14 AM

Post by Jim Lemon
I assume that you are importing the Excel sheets separately. When you
ncol(<name of data frame>)
ncolumns<-ncol(mpg)
ncolumns
[1] 38
You can then substitute "ncolumns" each time you import another sheet.
How you want to deal with the varying numbers of columns you will get is
another matter. One way is to work out the total number of plots you want
and put them all onto one PDF page. Say you have 50 plots overall. You
pdf("allplots.pdf",width=30,height=15)
par(mfrow=c(5,10))
# import your first sheet here (38 columns)
ncolumns<-ncol(mpg)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your second sheet here, say
10 columns
# import your second sheet here, (10 columns)
ncolumns<-ncol(mpg1)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg1[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your third sheet here, say 2
columns
# import your second sheet here, (2 columns)
ncolumns<-ncol(mpg2)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg2[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
# finish plotting
dev.off()
You would then have 50 plots on the PDF page. I am assuming that all
of your sheets have the same number of rows and a few other things. This
seems like a lot of plots, and I suspect that you could work out a better
way to display all this information.
Jim
On Wed, Nov 21, 2018 at 1:20 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, now I understood and will check them out.
One more thing I want to ask that I have 1 excel file with multiple
(i.e. 12 sheets). Each sheet contains different number of columns, for
instance, 1st sheet contains 38 columns, 2nd sheet contains 10 columns,
Third 2 columns, 4th 1 column and so on. Actually, due to some missing
observations in these columns, I couldn't add them in 1 sheet.
As you suggested the below code in the last mail,
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
Do I need to run the code separately for each sheet?
Actually, in par (mfrow=c(4,10)), the plot for 38 columns will be
added, the space for extra 2 will remain as empty. So, I thought to add
plots for the columns from the next sheet in those emptied space.
Is there any way that I can add plots from the next sheets of the
same excel file in the emptied space? In other words, Is there any way to
append plots from all sheets?
Kindly help a new R learner Sir for which I shall be always grateful to you.
Thank you very much for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:30:30 AM

Post by Jim Lemon
Hi Subhamitra,
1. Here I manufacture some data so that the example is
"reproducible", that is anyone can run the code and get the same output
that I do. Yes, veh1...veh38 are the names of the variables.
2. Here I join the 38 variables I created into a data frame, which I
think is the input for your plotting routine. This names of the columns of
the data frame become the names of the variables.
When you say that you want the column names as the "header" (title)
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
you will get what you requested. Remember that I have done this in
base graphics, not ggplot.
Jim
On Wed, Nov 21, 2018 at 12:37 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, I'll check them out.
But, I am not understanding 2 points of your suggestion.
1. In the line,* "*for(i in 1:38) assign(paste0("veh",i),rep(sam
ple(10:35,1),10)+runif(10,-4,*4))", *what veh, rep(sam
ple(10:35,1),10)+runif(10,-4,4)) indicate? Here veh indicates
columns right?
*2. In the
line, mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10,*
* veh11,veh12,veh13,veh14,**veh15,veh16,veh17,veh18,veh19,**veh20,*
* veh21,veh22,veh23,veh24,**veh25,veh26,veh27,veh28,veh29,**veh30,*
* veh31,veh32,veh33,veh34,**veh35,veh36,veh37,veh38) ** , *veh[i]
indicates column sequence, right? I need to give column names as the header
of their respective graphs. Please suggest me How to add this?
I am very new to R and therefore asking you these queries which
might be simple for you.
I expect positive help from you.
Thanks for your kind help.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&> 11/21/18,
7:02:18 AM

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for

each

Post by Subhamitra Patra
sheet. The 1st sheet consists of 38 columns. So, I want to plot

38 separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order.

Please suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by

running a loop

Post by Subhamitra Patra
inside of a sheet, but it is not working. Further, I want to run

loops for

factor(cyl))) +

Post by Subhamitra Patra
geom_line(size=2.5)
save_plot("mpg.png", plot.mpg,
base_aspect_ratio = 1.3)
I want to give my X axis name as scores of (1,500) and Y axis as

the

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&

Post by Subhamitra Patra
11/20/18,
11:49:42 PM
[[alternative HTML version deleted]]
______________________________________________

see

Post by Subhamitra Patra
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible

code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences*
*Indian Institute of Technology, Kharagpur*
*INDIA*

Jim Lemon

2018-11-21 09:11:08 UTC

1. xaxt="n" means "Don't display the X axis". See the help for "par" in the
graphics package

2. axis(1,at=1:nrows,labels=names(MPG3))
This means, "Display the bottom axis (1) with ticks at 1 to the number of
rows in the data frame"
"Use the values of MPG$Year as labels for the ticks". see the help for
"axis" in the graphics package
Note that this should be in the same loop as "plot"

Now I can see that my guess at the structure of the data was wrong. What
you could do is to collapse the daily records into the means for the years.
As I don't know what your spreadsheet looks like, I could only guess a
method for this.

You seem to be saying that you plot all 5655 values, but you want the axis
to show just the years.Rather than tell you to convert your data to a time
series, I'll suggest a quick hack.

axis(1,at=seq(1,5655,by=365),labels=1994:2014)

This _may_ work for you. I offer it because I can see that you do not have
a lot of experience in R and you want to get the job done. If you can't get
it to work, I apologize and you can blamelessly move to something else.

Jim

PS - If you don't know how to start HTML help - help.start()

Post by Subhamitra Patra
Sir, in the bold portion of the below code, I have some confusion which I
am mentioning below that
"ylab="MPG",main=names(MPG3)[i],*xaxt="n"*)
axis(*1*,at=1:nrows,*labels=MPG3$Year*)"
1. Here, what *xaxt="n"* indicates? I think it indicates the no. of rows,
right?
2. 1 in the 2nd line represents the no. of graphs. Let suppose, 38
plots are having the same row, I need to mention them as *axis(38,
at=1:nrows)*, right?
3. *labels=**MPG3$Year *will give the name of all years in the X-axis,
right?
Kindly correct me if I am wrong.
Sir, here one thing I would like to ask, my data frequency is not yearly.
I obtained results from the daily data of the period from 1994-2017 (that
means the no. of rows will be 5655). But, as the daily period is very
unclear to mention in the X-axis, I wanted to give year name as the name of
the X-axis (that means, 1995, 1997, 1999 with the increment of 2 years up
to 2017).
Sir, please suggest me how to proceed with this?

Subhamitra Patra

2018-11-21 09:39:33 UTC

OK, Sir. I will try as per your suggestions.

Thank you very much for your kind help.

[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campaign=signaturevirality5&>
11/21/18,
3:07:47 PM

Post by Jim Lemon
1. xaxt="n" means "Don't display the X axis". See the help for "par" in
the graphics package
2. axis(1,at=1:nrows,labels=names(MPG3))
This means, "Display the bottom axis (1) with ticks at 1 to the number of
rows in the data frame"
"Use the values of MPG$Year as labels for the ticks". see the help for
"axis" in the graphics package
Note that this should be in the same loop as "plot"
Now I can see that my guess at the structure of the data was wrong. What
you could do is to collapse the daily records into the means for the years.
As I don't know what your spreadsheet looks like, I could only guess a
method for this.
You seem to be saying that you plot all 5655 values, but you want the axis
to show just the years.Rather than tell you to convert your data to a time
series, I'll suggest a quick hack.
axis(1,at=seq(1,5655,by=365),labels=1994:2014)
This _may_ work for you. I offer it because I can see that you do not have
a lot of experience in R and you want to get the job done. If you can't get
it to work, I apologize and you can blamelessly move to something else.
Jim
PS - If you don't know how to start HTML help - help.start()
On Wed, Nov 21, 2018 at 7:26 PM Subhamitra Patra <

Post by Subhamitra Patra
Sir, in the bold portion of the below code, I have some confusion which
I am mentioning below that
"ylab="MPG",main=names(MPG3)[i],*xaxt="n"*)
axis(*1*,at=1:nrows,*labels=MPG3$Year*)"
1. Here, what *xaxt="n"* indicates? I think it indicates the no. of
rows, right?
2. 1 in the 2nd line represents the no. of graphs. Let suppose, 38
plots are having the same row, I need to mention them as *axis(38,
at=1:nrows)*, right?
3. *labels=**MPG3$Year *will give the name of all years in the X-axis,
right?
Kindly correct me if I am wrong.
Sir, here one thing I would like to ask, my data frequency is not yearly.
I obtained results from the daily data of the period from 1994-2017 (that
means the no. of rows will be 5655). But, as the daily period is very
unclear to mention in the X-axis, I wanted to give year name as the name of
the X-axis (that means, 1995, 1997, 1999 with the increment of 2 years up
to 2017).
Sir, please suggest me how to proceed with this?

PIKAL Petr

2018-11-21 07:43:14 UTC

Hi

When I do multiple plots of similar data I usually put the plots into the multipage pdf file

pdf("somename.pdf")
for (i in columns) {
p<-ggplot(something)
print(p+geom_point(size=4)+stat_smooth(se=F, span=0.5, size=1.3)+
facet_grid(al2o3~teplota, labeller="label_both"))

or

plot(something)

}
dev.off()

This will generate somename.pdf in your working directory and plots will be definitelly bigger than 40 plots in one page.

Another approach could be to store plots as objects in a list (which is easy done with ggplot) but rather trickier with base graphics and make actual plotting after the whole list is populated with your plots.

https://www.andrewheiss.com/blog/2016/12/08/save-base-graphics-as-pseudo-objects-in-r/

Cheers
Petr

-----Original Message-----
Sent: Wednesday, November 21, 2018 4:52 AM
Subject: Re: [R] [R studio] Plotting of line chart for each columns at 1 page
Hello Sir,
Thank you very much. I will try it out and will let you the result.
The no. of rows varies per sheet by a different number of observations. Due to
different no. of rows or observations, I separated the columns in different
sheets.
*Will a different number of rows create a problem for appending all plots?*
Concerning your last suggestion "*This seems like a lot of plots, and I suspect
that you could work out a better way to display all this information.*", I am
doing a multi-country study and obtained results for each country. I would
summarize the final result at the end. But, for displaying the information for
each country, I thought the plot is the best way to give a supplementary result
on each country. Sir, in this context, I would like to take your suggestion that Is
the way what I am doing, right to proceed? If any alternative way is available,
please suggest me.
Thank you very much, Sir, for your kind help and suggestions.
[image: Mailtrack]
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campa
ign=signaturevirality5&>
Sender
notified by
Mailtrack
<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campa
ign=signaturevirality5&>
11/21/18,
9:12:14 AM

Post by Jim Lemon
I assume that you are importing the Excel sheets separately. When you
ncol(<name of data frame>)
ncolumns<-ncol(mpg)
ncolumns
[1] 38
You can then substitute "ncolumns" each time you import another sheet.
How you want to deal with the varying numbers of columns you will get
is another matter. One way is to work out the total number of plots
you want and put them all onto one PDF page. Say you have 50 plots
pdf("allplots.pdf",width=30,height=15)
par(mfrow=c(5,10))
# import your first sheet here (38 columns)
ncolumns<-ncol(mpg)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your second sheet here, say
10 columns # import your second sheet here, (10 columns)
ncolumns<-ncol(mpg1)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg1[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])# import your third sheet here, say 2
columns # import your second sheet here, (2 columns)
ncolumns<-ncol(mpg2)
for(i in 1:ncolumns)
plot(seq(1,500,length.out=10),mpg2[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
# finish plotting
dev.off()
You would then have 50 plots on the PDF page. I am assuming that all
of your sheets have the same number of rows and a few other things.
This seems like a lot of plots, and I suspect that you could work out
a better way to display all this information.
Jim
On Wed, Nov 21, 2018 at 1:20 PM Subhamitra Patra <

Post by Subhamitra Patra
Hello Sir,
Thanks, now I understood and will check them out.
One more thing I want to ask that I have 1 excel file with multiple (i.e.
12 sheets). Each sheet contains different number of columns, for
instance, 1st sheet contains 38 columns, 2nd sheet contains 10
columns, Third 2 columns, 4th 1 column and so on. Actually, due to
some missing observations in these columns, I couldn't add them in 1 sheet.
As you suggested the below code in the last mail,
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
Do I need to run the code separately for each sheet?
Actually, in par (mfrow=c(4,10)), the plot for 38 columns will be
added, the space for extra 2 will remain as empty. So, I thought to
add plots for the columns from the next sheet in those emptied space.
Is there any way that I can add plots from the next sheets of the
same excel file in the emptied space? In other words, Is there any
way to append plots from all sheets?
Kindly help a new R learner Sir for which I shall be always grateful to you.
Thank you very much for your kind help.
[image: Mailtrack]

<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campa

Post by Subhamitra Patra
ign=signaturevirality5&> Sender notified by Mailtrack

<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_campa

Post by Subhamitra Patra
ign=signaturevirality5&> 11/21/18,
7:30:30 AM

Post by Jim Lemon
Hi Subhamitra,
1. Here I manufacture some data so that the example is
"reproducible", that is anyone can run the code and get the same
output that I do. Yes,
veh1...veh38 are the names of the variables.
2. Here I join the 38 variables I created into a data frame, which I
think is the input for your plotting routine. This names of the
columns of the data frame become the names of the variables.
When you say that you want the column names as the "header" (title)
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab="MPG",main=names(mpg)[i])
dev.off()
you will get what you requested. Remember that I have done this in
base graphics, not ggplot.
Jim
On Wed, Nov 21, 2018 at 12:37 PM Subhamitra Patra <

veh11,veh12,veh13,veh14,**veh15,veh16,veh17,veh18,veh19,**veh20,*

Post by Subhamitra Patra
*

veh21,veh22,veh23,veh24,**veh25,veh26,veh27,veh28,veh29,**veh30,*

Post by Subhamitra Patra
* veh31,veh32,veh33,veh34,**veh35,veh36,veh37,veh38) ** , *veh[i]
indicates column sequence, right? I need to give column names as
the header of their respective graphs. Please suggest me How to add this?
I am very new to R and therefore asking you these queries which
might be simple for you.
I expect positive help from you.
Thanks for your kind help.
[image: Mailtrack]

<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_cam

Post by Subhamitra Patra
paign=signaturevirality5&> Sender notified by Mailtrack

<https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_cam

Post by Subhamitra Patra
paign=signaturevirality5&> 11/21/18,
7:02:18 AM

get it.

Post by Jim Lemon
for(i in 1:38)
assign(paste0("veh",i),rep(sample(10:35,1),10)+runif(10,-4,4))
mpg<-data.frame(veh1,veh2,veh3,veh4,veh5,veh6,veh7,veh8,veh9,veh10
, veh11,veh12,veh13,veh14,veh15,veh16,veh17,veh18,veh19,veh20,
veh21,veh22,veh23,veh24,veh25,veh26,veh27,veh28,veh29,veh30,
veh31,veh32,veh33,veh34,veh35,veh36,veh37,veh38)
pdf("mpg.pdf",width=30,height=12)
par(mfrow=c(4,10))
for(i in 1:38)
plot(seq(1,500,length.out=10),mpg[,i],type="l",xlab="Distance",
ylab=names(mpg)[i],main="MPG by distance")
dev.off()
Jim
On Wed, Nov 21, 2018 at 5:19 AM Subhamitra Patra

Post by Subhamitra Patra
Dear R users,
I have one excel file with 5 sheets. The no. of columns vary for
each sheet. The 1st sheet consists of 38 columns. So, I want to
plot 38

separate

Post by Subhamitra Patra
line charts and arrange them in par(mfrow = c(4, 10)) order. Please

suggest

Post by Subhamitra Patra
me how to do this. I have tried with the following code by running a

loop

Post by Subhamitra Patra
inside of a sheet, but it is not working. Further, I want to run

loops for

factor(cyl))) +

Post by Subhamitra Patra
geom_line(size=2.5)
save_plot("mpg.png", plot.mpg,
base_aspect_ratio = 1.3)
I want to give my X axis name as scores of (1,500) and Y axis as
the particular column names for all graphs.
Please suggest.
Thanks in advance.
--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences* *Indian Institute
of Technology, Kharagpur*
*INDIA*
[image: Mailtrack]
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_cam

Post by Jim Lemon
paign=signaturevirality5&

Post by Subhamitra Patra
Sender
notified by
Mailtrack
<

https://mailtrack.io?utm_source=gmail&utm_medium=signature&utm_cam

Post by Jim Lemon
paign=signaturevirality5&

Post by Subhamitra Patra
11/20/18,
11:49:42 PM
[[alternative HTML version deleted]]
______________________________________________
see https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide

http://www.R-project.org/posting-guide.html

Post by Subhamitra Patra
and provide commented, minimal, self-contained, reproducible code.

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences* *Indian Institute of
Technology, Kharagpur*
*INDIA*

--
*Best Regards,*
*Subhamitra Patra*
*Phd. Research Scholar*
*Department of Humanities and Social Sciences* *Indian Institute of
Technology, Kharagpur*
*INDIA*
[[alternative HTML version deleted]]
______________________________________________
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-contained, reproducible code.

Osobní údaje: Informace o zpracování a ochraně osobních údajů obchodních partnerů PRECHEZA a.s. jsou zveřejněny na: https://www.precheza.cz/zasady-ochrany-osobnich-udaju/ | Information about processing and protection of business partner’s personal data are available on website: https://www.precheza.cz/en/personal-data-protection-principles/
Důvěrnost: Tento e-mail a jakékoliv k němu připojené dokumenty jsou důvěrné a podléhají tomuto právně závaznému prohláąení o vyloučení odpovědnosti: https://www.precheza.cz/01-dovetek/ | This email and any documents attached to it may be confidential and are subject to the legally binding disclaimer: https://www.precheza.cz/en/01-disclaimer/

______________________________________________
R-***@r-project.org mailing list -- To UNSUBSCRIBE and more, see
https://stat.ethz.ch/mailman/listinfo/r-help
PLEASE do read the posting guide http://www.R-project.org/posting-guide.html
and provide commented, minimal, self-containe

Continue reading on narkive:

Search results for '[R] [R studio] Plotting of line chart for each columns at 1 page' (Questions and Answers)

Is Hussein Obama a young politician who relies on preacherly generalities without any substance??

started 2008-01-21 18:20:50 UTC

elections

how do you make a graph on your pc?

started 2006-10-05 03:40:23 UTC

programming & design

table for quadratic equation!!!?

started 2009-05-07 10:22:35 UTC

mathematics