Please do provide data when submitting a question so we don't have to try to
recreate it from a brief description.

> pot <- data.frame(count=LETTERS[1:10], '1998'=runif(10), '1999'=runif(10),
+     '2000'=runif(10), '2001'=runif(10), check.names=FALSE,
stringsAsFactors=FALSE)
> pot
   count       1998      1999       2000       2001
1      A 0.98631159 0.9894998 0.48614910 0.10910096
2      B 0.29360555 0.1764520 0.06380247 0.33327798
3      C 0.39935111 0.5421304 0.78454623 0.83741657
4      D 0.81213152 0.3843039 0.41832164 0.27684984
5      E 0.07715167 0.6761641 0.98101808 0.58703514
6      F 0.36369681 0.2692938 0.28288396 0.83673227
7      G 0.44259247 0.4692509 0.84788215 0.07115402
8      H 0.15671413 0.1718001 0.08223923 0.70277874
9      I 0.58220527 0.3691895 0.88645875 0.69882454
10     J 0.97016218 0.7254053 0.47193073 0.46396238
> max.col <- apply(pot[, -1L], 1, which.max)
> data.frame(count=pot$count, year=names(pot[, -1L])[max.col])
   count year
1      A 1999
2      B 2001
3      C 2001
4      D 1998
5      E 2000
6      F 2001
7      G 2000
8      H 2001
9      I 2000
10     J 1998


On Sun, Apr 18, 2010 at 10:40 AM, AuriDUL <auri...@yahoo.com> wrote:

>
> Hello.
>
> I have data of potatoes production in EU during 1998-2009 from EuroStat
> where the first column consists of the names of EU countries, the following
> columns consists of appropriate data in each year.
>
> Let's say, I investigate Lithuania. For example, I have a row containing
> potatoes production in 1998, 1999, ..., 2009 in Lithuania. I can easily
> find
> the maximum value in this row but...
>
> ...but
>
> How could I print the year (the name of the column) where that maximum
> value
> of potaoes production in Lithuania exists? [if it's even possible.]
>
> I only have a code which can print a number of the column where that
> maximum
> value of Lithuania's potatoes production during 1998-2009 is.
>
> Thanks in advance.
> --
> View this message in context:
> http://n4.nabble.com/getting-column-s-main-tp2014892p2014892.html
> Sent from the R help mailing list archive at Nabble.com.
>
> ______________________________________________
> 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<http://www.r-project.org/posting-guide.html>
> and provide commented, minimal, self-contained, reproducible code.
>



-- 
Jim Holtman
Cincinnati, OH
+1 513 646 9390

What is the problem that you are trying to solve?

        [[alternative HTML version deleted]]

______________________________________________
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.

Reply via email to