Hi:
Try this:
# Obtained from 'dput(dd)'
dd <- structure(list(AgeRange = structure(c(1L, 1L, 2L, 2L, 3L, 3L),
.Label = c("10-12",
"15-18", "30-40"), class = "factor"), AgeOfPerson = c(11L, 12L,
13L, 14L, 33L, 36L), PersonNo = 1:6, Year0 = c(0L, 0L, 1L, 1L,
3L, 4L), Year1 = c(1L, 1L, 2L, 3L, 5L, 4L), Year2 = c(2L, 2L,
3L, 4L, 5L, 4L), Year3 = c(2L, 2L, 4L, 5L, 6L, 4L), Year4 = c(3L,
3L, 6L, 7L, 8L, 4L), Year5 = c(3L, 3L, 7L, 7L, 9L, 4L)), .Names = c("AgeRange",
"AgeOfPerson", "PersonNo", "Year0", "Year1", "Year2", "Year3",
"Year4", "Year5"), class = "data.frame", row.names = c(NA, -6L
))
library('reshape')
library('lattice')
# Reshape data from wide to long
md <- melt(dd, id.vars = c('AgeRange', 'AgeOfPerson', 'PersonNo'))
# Make variable numeric by stripping off all but the last
# character and coercing it to numeric
md$variable <- as.numeric(substr(as.character(md$variable), 5, 5))
mykey = list(title="Age of Person",
corner = c(1, 1),
x = 0.85, y = 0.9, cex = 1.0,
text = list(as.character(unique(md$AgeOfPerson))),
lines = list(col = 1:6))
xyplot(value ~ variable | AgeRange, data = md, group = PersonNo, type
= c('p', 'l'),
col = 1:6, col.lines = 1:6, key = mykey)
Here's my question: Why do you have a 15-18 age group with persons of
age 13 and 14 in it?
HTH,
Dennis
On Wed, Aug 3, 2011 at 2:06 PM, <az...@illinois.edu> wrote:
>
> Consider I have the following data:
>
> AgeRange AgeOfPerson PersonNo FriendsAtYear0
> FriendsAtYear1 FriendsAtYear2 FriendsAtYear3 FriendsAtYear4 FriendsAtYear5
> 10 - 12 11 1 0 1 2 2 3 3
> 10 - 12 12 2 0 1 2 2 3 3
> 15 - 18 13 3 1 2 3 4 6 7
> 15 - 18 14 4 1 3 4 5 7 7
> 30 - 40 33 5 3 5 5 6 8 9
> 30 - 40 36 6 4 4 4 4 4 4
>
> I want to plot the number of friends against number of years, as to show how
> friendships grew over time. Also, I want to group the graphs by AgeRange of
> persons and also color them with respect to the Age of Persons. So far, I
> have this code:
>
>
> FilePath = "C:\\Documents and Settings\\All
> Users\\Documents\\Desktop\\Fayez\\ResearchWork\\Pajek_Work\\Program\\2011-03-07-Wed-FriMeetingApr15\\RPractice\\"
>
> NumberOfyears <- c(0, 1, 2, 3, 4 ,5);
>
> File2Open = paste(FilePath, "FriendshipNetExample.txt", sep = "")
> # print(File2Open)
>
> DataTable = read.table(File2Open, header = TRUE, sep = "\t")
> # print(DataTable)
>
> print(xyplot(FriendsAtYear0 + FriendsAtYear1 + FriendsAtYear2 +
> FriendsAtYear3 + FriendsAtYear4 + FriendsAtYear5
> ~ AgeOfPerson | AgeRange, data = DataTable, xlab = "Number of Years (0 to
> 5)", ylab = "Number of Friends", main = "Number of Friends vs. Years",
> #aspect = "xy", # calculate an optimal aspect ratio
> panel = function(x,y) {
> panel.grid();
> if (10 <= x && x < 12) panel.xyplot(x,y,col="red");
> if (15 <= x && x < 18) panel.xyplot(x,y,col="salmon");
> if (30 <= x && x < 40) panel.xyplot(x,y,col="maroon");
> } ) )
>
> But it obviously does not serve the purpose. Urgent help would be most
> appreciated.
>
> Best,
> Fayez
> Grad student - UIUC
>
> ______________________________________________
> R-help@r-project.org mailing list
> 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-help@r-project.org mailing list
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.
