Hello,
Try the following.
# This is your code
df_sorted = df[order(as.Date(df$date, "%m/%d/%Y"), decreasing = TRUE),]
# This is my code
nams <- as.character(unique(dat1$name))
nums <- sapply(nams, function(nm) which(names(df_sorted) %in% nm))
df_sorted[, sort(nums)] <- df_sorted[, nams]
names(d
Dear Mr Rui Barradas,
Thanks a lot for your wonderful suggestion. It worked and will help me
immensely in future too. Really heartfelt thanks once again.
Vincy
--- On Wed, 7/18/12, Rui Barradas wrote:
From: Rui Barradas
Subject: Re: [R] How to have original (name) order after melt and cast
Dear R helpers,
I have a data.frame as given below -
dat1 = data.frame(date =
as.Date(c("3/30/12","3/29/12","3/28/12","3/27/12","3/26/12",
"3/23/12","3/22/12","3/21/12","3/20/12",
"3/30/12","3/29/12","3/28/12","3/27/12",
"3/26/12","3/23/12","3/22/12","3/21/12","3/20/12",
"3/30/12","3/29/12","3
3 matches
Mail list logo