Hello,
I am trying to add a legend to my PCA plot so that it looks neat. I think
plotting this outside of the chart area would be good but I cannot seem to
fathom the correct code for this. I wondered if anyone could help please?
The code I am using is as follows:
grp<- with(Matan, cut(R_category_no,14, labels=1:14))
cols <- c("grey0", "wheat", "red",
"cyan", "orange", "darkolivegreen2",
"purple3",
"royalblue", "burlywood4", "orchid",
"forestgreen", "green",
"gray", "yellow1")
plot(geopca, display="sites", scaling=3, type="n")
points(geopca, display="sites", scaling=3, col=cols[grp], pch=16)
legend("bottomright", col=c("grey0", "wheat",
"red", "cyan", "orange",
"darkolivegreen2",
"purple3", "royalblue", "burlywood4",
"orchid", "forestgreen", "green",
"gray", "yellow1"), c("Control type 1",
"Control type 2",
"External/Courtyard", "Midden", "Animal
Occupation",
"External fire installations and ashy deposits",
"Internal fire installations and ashy deposits", "Hearth
make-up",
"Floors and surfaces", "Plasters and clay features",
"Storage features",
"Platforms and benches", "Mortars", "Roofs and roofing
materials"), pch=16,
cex=0.75, bty="n")
Thank you for your time in advance
Dr Samantha Lee Allcock
Faculty of Science and Technology
Department of Archaeology, Anthropology and Forensic Science
Christchurch House Rm: C133
Bournemouth University
Talbot Campus
Poole
BH12 5BB
Tel: 01202 9(62474)
sallcock at bournemouth.ac.uk<mailto:sallcock at bournemouth.ac.uk>
research.bournemouth.ac.uk/2014/07/inea-project-2
BU is a Disability Two Ticks Employer and has signed up to the Mindful Employer
charter. Information about the accessibility of University buildings can be
found on the BU DisabledGo webpages This email is intended only for the person
to whom it is addressed and may contain confidential information. If you have
received this email in error, please notify the sender and delete this email,
which must not be copied, distributed or disclosed to any other person. Any
views or opinions presented are solely those of the author and do not
necessarily represent those of Bournemouth University or its subsidiary
companies. Nor can any contract be formed on behalf of the University or its
subsidiary companies via email.
[[alternative HTML version deleted]]
Tena koe Samantha
You probably need to set some graphics parameters such as xpd and mar (see
?par), and then give the ? and y location of the legend rather than
'bottomright' (see ?legend).
HTH ....
Peter Alspach
PS Please don't post in html (see the posting guide) ... P
-----Original Message-----
From: R-help [mailto:r-help-bounces at r-project.org] On Behalf Of Samantha
Allcock
Sent: Thursday, 25 June 2015 4:35 a.m.
To: 'r-help at r-project.org'
Subject: [R] Plotting legend outside of chart area
Hello,
I am trying to add a legend to my PCA plot so that it looks neat. I think
plotting this outside of the chart area would be good but I cannot seem to
fathom the correct code for this. I wondered if anyone could help please?
The code I am using is as follows:
grp<- with(Matan, cut(R_category_no,14, labels=1:14)) cols <-
c("grey0", "wheat", "red", "cyan",
"orange", "darkolivegreen2", "purple3",
"royalblue", "burlywood4", "orchid",
"forestgreen", "green", "gray",
"yellow1") plot(geopca, display="sites", scaling=3,
type="n") points(geopca, display="sites", scaling=3,
col=cols[grp], pch=16)
legend("bottomright", col=c("grey0", "wheat",
"red", "cyan", "orange",
"darkolivegreen2", "purple3", "royalblue",
"burlywood4", "orchid", "forestgreen",
"green", "gray", "yellow1"), c("Control type
1", "Control type 2", "External/Courtyard",
"Midden", "Animal Occupation", "External fire
installations and ashy deposits", "Internal fire installations and
ashy deposits", "Hearth make-up", "Floors and
surfaces", "Plasters and clay features", "Storage
features", "Platforms and benches", "Mortars",
"Roofs and roofing materials"), pch=16, cex=0.75, bty="n")
Thank you for your time in advance
Dr Samantha Lee Allcock
Faculty of Science and Technology
Department of Archaeology, Anthropology and Forensic Science Christchurch House
Rm: C133 Bournemouth University Talbot Campus Poole
BH12 5BB
Tel: 01202 9(62474)
sallcock at bournemouth.ac.uk<mailto:sallcock at bournemouth.ac.uk>
research.bournemouth.ac.uk/2014/07/inea-project-2
BU is a Disability Two Ticks Employer and has signed up to the Mindful Employer
charter. Information about the accessibility of University buildings can be
found on the BU DisabledGo webpages This email is intended only for the person
to whom it is addressed and may contain confidential information. If you have
received this email in error, please notify the sender and delete this email,
which must not be copied, distributed or disclosed to any other person. Any
views or opinions presented are solely those of the author and do not
necessarily represent those of Bournemouth University or its subsidiary
companies. Nor can any contract be formed on behalf of the University or its
subsidiary companies via email.
[[alternative HTML version deleted]]
______________________________________________
R-help at 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.
The contents of this e-mail are confidential and may be ...{{dropped:14}}
First, you have to increase the bottom margin to have enough space for the
legend.
You do it like this:
par(
mar = c(6,4,4,2)
)
>From R help:
?mar? A numerical vector of the form ?c(bottom, left, top, right)?
which gives the number of lines of margin to be specified on
the four sides of the plot. The default is ?c(5, 4, 4, 2) +
0.1?.
So, we have increased the first number from 5 to 6 to have mor space at the
bottom.
Then, in the legend(), you have to add the option:
inset = c(0, -0.2),
>From R help:
inset: inset distance(s) from the margins as a fraction of the plot
region when legend is placed by keyword.
Change the -0.2 and the 6 in the par(mar) until you get a nice chart
Antonio Serrano
aasdelat at aim.com
?
-----Original Message-----
From: Samantha Allcock <sallcock at bournemouth.ac.uk>
To: 'r-help at r-project.org' <r-help at r-project.org>
Sent: Wed, Jun 24, 2015 10:08 pm
Subject: [R] Plotting legend outside of chart area
Hello,
I am trying to add a legend to my PCA plot so that it looks neat. I
think plotting this outside of the chart area would be good but I cannot seem to
fathom the correct code for this. I wondered if anyone could help please?
The
code I am using is as follows:
grp<- with(Matan, cut(R_category_no,14,
labels=1:14))
cols <- c("grey0", "wheat", "red",
"cyan", "orange",
"darkolivegreen2", "purple3",
"royalblue", "burlywood4", "orchid",
"forestgreen", "green",
"gray", "yellow1")
plot(geopca, display="sites",
scaling=3, type="n")
points(geopca, display="sites", scaling=3, col=cols[grp],
pch=16)
legend("bottomright", col=c("grey0", "wheat",
"red", "cyan",
"orange", "darkolivegreen2",
"purple3", "royalblue", "burlywood4",
"orchid",
"forestgreen", "green",
"gray", "yellow1"), c("Control type 1",
"Control type
2",
"External/Courtyard", "Midden", "Animal
Occupation",
"External fire
installations and ashy deposits",
"Internal fire installations and ashy
deposits", "Hearth make-up",
"Floors and surfaces", "Plasters and clay
features", "Storage features",
"Platforms and benches", "Mortars", "Roofs and
roofing materials"), pch=16,
cex=0.75, bty="n")
Thank you for your time in
advance
Dr Samantha Lee Allcock
Faculty of Science and
Technology
Department of Archaeology, Anthropology and Forensic
Science
Christchurch House Rm: C133
Bournemouth University
Talbot
Campus
Poole
BH12 5BB
Tel: 01202
9(62474)
sallcock at bournemouth.ac.uk<mailto:sallcock at bournemouth.ac.uk>
research.bournemouth.ac.uk/2014/07/inea-project-2
BU
is a Disability Two Ticks Employer and has signed up to the Mindful Employer
charter. Information about the accessibility of University buildings can be
found on the BU DisabledGo webpages This email is intended only for the person
to whom it is addressed and may contain confidential information. If you have
received this email in error, please notify the sender and delete this email,
which must not be copied, distributed or disclosed to any other person. Any
views or opinions presented are solely those of the author and do not
necessarily represent those of Bournemouth University or its subsidiary
companies. Nor can any contract be formed on behalf of the University or its
subsidiary companies via email.
[[alternative HTML version
deleted]]
______________________________________________
R-help at 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.
[[alternative HTML version deleted]]
First, you have to increase the bottom margin to have enough space for the
legend.
You do it like this:
par(
mar = c(6,4,4,2)
)
From R help:
?mar? A numerical vector of the form ?c(bottom, left, top, right)?
which gives the number of lines of margin to be specified on
the four sides of the plot. The default is ?c(5, 4, 4, 2) +
0.1?.
So, we have increased the first number from 5 to 6 to have mor space at the
bottom.
Then, in the legend(), you have to add the option:
inset = c(0, -0.2),
From R help:
inset: inset distance(s) from the margins as a fraction of the plot
region when legend is placed by keyword.
Change the -0.2 and the 6 in the par(mar) until you get a nice chart
Antonio Serrano
aasdelat at aim.com
?
-----Original Message-----
From: Samantha Allcock <sallcock at bournemouth.ac.uk>
To: 'r-help at r-project.org' <r-help at r-project.org>
Sent: Wed, Jun 24, 2015 10:08 pm
Subject: [R] Plotting legend outside of chart area
Hello,
I am trying to add a legend to my PCA plot so that it looks neat. I
think plotting this outside of the chart area would be good but I cannot seem to
fathom the correct code for this. I wondered if anyone could help please?
The
code I am using is as follows:
grp<- with(Matan, cut(R_category_no,14,
labels=1:14))
cols <- c("grey0", "wheat", "red",
"cyan", "orange",
"darkolivegreen2", "purple3",
"royalblue", "burlywood4", "orchid",
"forestgreen", "green",
"gray", "yellow1")
plot(geopca, display="sites",
scaling=3, type="n")
points(geopca, display="sites", scaling=3, col=cols[grp],
pch=16)
legend("bottomright", col=c("grey0", "wheat",
"red", "cyan",
"orange", "darkolivegreen2",
"purple3", "royalblue", "burlywood4",
"orchid",
"forestgreen", "green",
"gray", "yellow1"), c("Control type 1",
"Control type
2",
"External/Courtyard", "Midden", "Animal
Occupation",
"External fire
installations and ashy deposits",
"Internal fire installations and ashy
deposits", "Hearth make-up",
"Floors and surfaces", "Plasters and clay
features", "Storage features",
"Platforms and benches", "Mortars", "Roofs and
roofing materials"), pch=16,
cex=0.75, bty="n")
Thank you for your time in
advance
Dr Samantha Lee Allcock
Faculty of Science and
Technology
Department of Archaeology, Anthropology and Forensic
Science
Christchurch House Rm: C133
Bournemouth University
Talbot
Campus
Poole
BH12 5BB
Tel: 01202
9(62474)
sallcock at bournemouth.ac.uk<mailto:sallcock at bournemouth.ac.uk>
research.bournemouth.ac.uk/2014/07/inea-project-2
BU
is a Disability Two Ticks Employer and has signed up to the Mindful Employer
charter. Information about the accessibility of University buildings can be
found on the BU DisabledGo webpages This email is intended only for the person
to whom it is addressed and may contain confidential information. If you have
received this email in error, please notify the sender and delete this email,
which must not be copied, distributed or disclosed to any other person. Any
views or opinions presented are solely those of the author and do not
necessarily represent those of Bournemouth University or its subsidiary
companies. Nor can any contract be formed on behalf of the University or its
subsidiary companies via email.
[[alternative HTML version
deleted]]
______________________________________________
R-help at 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.
[[alternative HTML version deleted]]