[R] Sorting data.frame datewise in a descending order and geting datewise subtotl
arun
smartpink111 at yahoo.com
Thu Jul 3 12:15:05 CEST 2014
Hi,
Try:
res1 <- aggregate(PROFIT~DATE, data=dat, FUN=sum)
res1[rev(order(as.Date(res1$DATE, format="%d/%m/%Y"))),]
# DATE PROFIT
#2 02/07/2014 -1350
#1 01/07/2014 9400
#4 30/06/2014 11325
#3 27/06/2014 6850
#if you don't wanted another column in the original dataset with `sum`
res2 <- transform(dat, sumPROFIT=ave(PROFIT, DATE, FUN=sum))
res2[rev(order(as.Date(res2$DATE,format="%d/%m/%Y"))),]
A.K.
On Thursday, July 3, 2014 4:43 AM, veepsirtt <veepsirtt at gmail.com> wrote:
Warning in install.packages :
package ‘dplyr’ is not available (for R version 2.15.3)
Is there any alternate way to sorting data.frame datewise in a
descending order?.(not using dplyr)
On Thu, Jul 3, 2014 at 12:48 PM, Velappan Periasamy <veepsirtt at gmail.com>
wrote:
> Hi A.K
> I modified and got the results
> thanks A.K
>
> library(XML)
> URL <- "
> http://money.securebank.in/index.php?option=com_dashboard&view=history&Itemid=56&startdate=01/01/2014&enddate=02/07/2014&exchange=MCX&sid=1
> "
>
> doc <- htmlParse(URL)
> tableNodes <- getNodeSet(doc, "//table")
> l=length(tableNodes)
> dat1 <- readHTMLTable(tableNodes[[l]], colClasses=c("numeric","character",
> "character", "numeric", "character", "numeric", "numeric", "character",
> "numeric"),stringsAsFactors=FALSE)
>
> dat1$DATE <- as.Date(dat1$DATE, "%d-%m-%Y")
> str(dat1)
>
>
> On Thu, Jul 3, 2014 at 10:14 AM, Velappan Periasamy <veepsirtt at gmail.com>
> wrote:
>
>> Hi A.K
>>
>> -----------------------------
>> library(XML)
>> URL <- "
>> http://money.securebank.in/index.php?option=com_dashboard&view=history&Itemid=56&startdate=01/01/2013&enddate=6/9/2014&exchange=MCX&sid=1"
>>
>> doc <- htmlParse(URL)
>> tableNodes <- getNodeSet(doc, "//table")
>> dat1 <- readHTMLTable(tableNodes[[4]],
>> colClasses=c("numeric","character", "character", "numeric", "character",
>> "numeric", "numeric", "character", "numeric"),stringsAsFactors=FALSE)
>> dat1$DATE <- as.Date(dat1$DATE, "%d-%m-%Y")
>> str(dat1)
>> ------------------------------
>>
>>
>> I got this error,while running the above code under RStudio.,
>> how to correct it?.
>>
>> > dat1 <- readHTMLTable(tableNodes[[4]],
>> colClasses=c("numeric","character", "character", "numeric", "character",
>> "numeric", "numeric", "character", " ..." ... [TRUNCATED]
>> Error in readHTMLTable(tableNodes[[4]], colClasses = c("numeric",
>> "character", :
>> error in evaluating the argument 'doc' in selecting a method for
>> function 'readHTMLTable': Error in tableNodes[[4]] : subscript out of
>> bounds
>>
>>
>> On Thu, Jul 3, 2014 at 12:42 AM, arun kirshna [via R] <
>> ml-node+s789695n4693407h97 at n4.nabble.com> wrote:
>>
>>>
>>> Hi veepsirtt,
>>>
>>>
>>> If `dat` is the dataset
>>>
>>> library(dplyr)
>>> dat %>%
>>>
>>> group_by(DATE) %>%
>>>
>>> summarize(PROFIT=sum(PROFIT)) %>%
>>> arrange(desc(as.Date(DATE,format="%d/%m/%Y")))
>>> Source: local data frame [4 x 2]
>>>
>>> DATE PROFIT
>>> 1 02/07/2014 -1350
>>> 2 01/07/2014 9400
>>> 3 30/06/2014 11325
>>> 4 27/06/2014 6850
>>>
>>>
>>> If you just wanted to have a new variable subTotalPROFIT and not
>>> summarize the dataset
>>>
>>>
>>> dat %>%
>>>
>>> group_by(DATE) %>%
>>>
>>> mutate(subTotalPROFIT=sum(PROFIT)) %>%
>>>
>>> arrange(desc(as.Date(DATE,format="%d/%m/%Y")))
>>>
>>> A.K.
>>>
>>>
>>>
>>> On Wednesday, July 2, 2014 4:03 AM, Velappan Periasamy <[hidden email]
>>> <http://user/SendEmail.jtp?type=node&node=4693407&i=0>> wrote:
>>>
>>>
>>>
>>> Hi A.K,
>>> How to Sort the given data.frame date wise in a descending order
>>> and getting date wise subtotal
>>>
>>> SLNO. DATE SCRIP PROFIT
>>> 6006302/07/2014Aluminium -1000
>>> 6005702/07/2014Copper 900
>>> 6005602/07/2014LEAD -1250
>>> 6002901/07/2014Crude Oil6400
>>> 6003401/07/2014LEAD 1500
>>> 6002501/07/2014Nickel 1500
>>> 5998030/06/2014Nickel 475
>>> 5998430/06/2014Natural Gas3000
>>> 5997230/06/2014Crude Oil2600
>>> 5997130/06/2014Copper3750
>>> 5997030/06/2014Natural Gas1500
>>> 5992427/06/2014Aluminium 500
>>> 5992227/06/2014LEAD 2250
>>> 5992027/06/2014Copper1100
>>> 5991827/06/2014Natural Gas3000
>>>
>>> Thanks
>>> veepsirtt
>>>
>>> ______________________________________________
>>> [hidden email] <http://user/SendEmail.jtp?type=node&node=4693407&i=1>
>>> 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.
>>>
>>>
>>> ------------------------------
>>> If you reply to this email, your message will be added to the
>>> discussion below:
>>>
>>> http://r.789695.n4.nabble.com/Sorting-data-frame-datewise-in-a-descending-order-and-geting-datewise-subtotl-tp4693384p4693407.html
>>> To unsubscribe from Sorting data.frame datewise in a descending order
>>> and geting datewise subtotl, click here
>>> <http://r.789695.n4.nabble.com/template/NamlServlet.jtp?macro=unsubscribe_by_code&node=4693384&code=dmVlcHNpcnR0QGdtYWlsLmNvbXw0NjkzMzg0fDY5NzkzMTE3Nw==>
>>> .
>>> NAML
>>> <http://r.789695.n4.nabble.com/template/NamlServlet.jtp?macro=macro_viewer&id=instant_html%21nabble%3Aemail.naml&base=nabble.naml.namespaces.BasicNamespace-nabble.view.web.template.NabbleNamespace-nabble.view.web.template.NodeNamespace&breadcrumbs=notify_subscribers%21nabble%3Aemail.naml-instant_emails%21nabble%3Aemail.naml-send_instant_email%21nabble%3Aemail.naml>
>>>
>>
>>
>
--
View this message in context: http://r.789695.n4.nabble.com/Sorting-data-frame-datewise-in-a-descending-order-and-geting-datewise-subtotl-tp4693384p4693434.html
Sent from the R help mailing list archive at Nabble.com.
[[alternative HTML version deleted]]
______________________________________________
R-help at 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.
More information about the R-help
mailing list