0

i'm new for R programing language,i'm doing my first project by using statistic R programing language by learning online document.But i'm struck some place related to my requirement .please help me to achieve.

My Data frame.

 CTerms      AUHistory                                                         VenDetails                                Purchaseitem     

    Valid       list(DID = c("200","300"),Dprice = c("$652.94","$252.04"))   list(`cust#`="44",CADD ="SHi,US")     list(Group= "ship",Email ="ga",Details = list(list(PDesc ="D,C",Bsku ="47")))

    Test        list(DID = c("400","20"),Dprice = c("$252.04", "$252.04"))   list(`cust#`= "45",CADD ="SHi,US")    list(Group = "ship",Email ="ga",Details =list(list(PDesc = "D,C,S",Bsku ="47")))

    Invalid     list(DID = c("200","200"),Dprice = c("$652.94.04","$27.4"))  list(`cust#` ="44",CADD ="SHi,US")    list(Group = "ship",Email ="ga",Details =list(list(PDesc = "D,T",Bsku ="47")))

My Expected Dataframe.

i'm getting below dataframe by grouping cust#.

`cust#`   ColumnHeader      ColValues   

    44       CTerms          list(Value = "Valid", count="1", list(Value="Invalid",count = "1"))                              
    44       DID             list(Value = "200", count=3,list(Value="300",count="1")
    44       Dprice          list(Value ="$652.94",count="1",list(Value="$252.04",count="1"),list(Value="$652.94.04", count="1"),list(Value="$27.4",count ="1"))
    44       CADD            list(Value = "SHi", count="2", list(Value="US",count = "2"))
    44       Group           list(Value = "ship", count="2")
    44       Email           list(Value = "ga", count="2")
    44       PDesc           list(Value ="D",count="2",list(Value="C",count="1"),list(Value="T", count="1"))
    44       Bsku            list(Value = "47", count="2")
    45       CTerms          list(Value = "Test", count="1")
    45       DID             list(Value = "400", count=1,list(Value="20",count="1")
    45       Dprice          list(Value = "$252.04", count=2)
    45       CADD            list(Value = "SHi", count=1,list(Value="US",count="1")
    45       Group           list(Value = "ship", count="1")
    45       Email           list(Value = "ga", count="1")
    45       PDesc           list(Value ="D",count="1",list(Value="C",count="1"),list(Value="S", count="1"))
    45       Bsku            list(Value = "47", count="1")

dput

structure(list(CTerms = c("Valid", "Test", "Invalid"), AUHistory = list(
    structure(list(DID = c("200", "300"), Dprice = c("$652.94", 
    "$252.04")), .Names = c("DID", "Dprice"), class = "data.frame", row.names = 1:2), 
    structure(list(DID = c("400", "20"), Dprice = c("$252.04", 
    "$252.04")), .Names = c("DID", "Dprice"), class = "data.frame", row.names = 1:2), 
    structure(list(DID = c("200", "200"), Dprice = c("$652.94.04", 
    "$27.4")), .Names = c("DID", "Dprice"), class = "data.frame", row.names = 1:2)), 
    VenDetails = list(structure(list(`cust#` = "44", CADD = "SHi, US"), .Names = c("cust#", 
    "CADD"), class = "data.frame", row.names = 1L), structure(list(
        `cust#` = "45", CADD = "SHi, US"), .Names = c("cust#", 
    "CADD"), class = "data.frame", row.names = 1L), structure(list(
        `cust#` = "44", CADD = "SHi, US"), .Names = c("cust#", 
    "CADD"), class = "data.frame", row.names = 1L)), Purchaseitem = list(
        structure(list(Group = "ship", Email = "ga", Details = list(
            structure(list(PDesc = "D, C", Bsku = "47"), .Names = c("PDesc", 
            "Bsku"), class = "data.frame", row.names = 1L))), .Names = c("Group", 
        "Email", "Details"), class = "data.frame", row.names = 1L), 
        structure(list(Group = "ship", Email = "ga", Details = list(
            structure(list(PDesc = "D, C, S", Bsku = "47"), .Names = c("PDesc", 
            "Bsku"), class = "data.frame", row.names = 1L))), .Names = c("Group", 
        "Email", "Details"), class = "data.frame", row.names = 1L), 
        structure(list(Group = "ship", Email = "ga", Details = list(
            structure(list(PDesc = "D, T", Bsku = "47"), .Names = c("PDesc", 
            "Bsku"), class = "data.frame", row.names = 1L))), .Names = c("Group", 
        "Email", "Details"), class = "data.frame", row.names = 1L))), .Names = c("CTerms", 
"AUHistory", "VenDetails", "Purchaseitem"), row.names = c(NA, 
3L), class = "data.frame")
Vinoth K
  • 1
  • 2
  • 2
    Welcome to StackOverflow! Please read the info about [how to ask a good question](http://stackoverflow.com/help/how-to-ask) and how to give a [reproducible example](http://stackoverflow.com/questions/5963269). This will make it much easier for others to help you. – Sotos Nov 12 '17 at 06:42
  • The logic to get the expected output is not clear – akrun Nov 12 '17 at 08:10
  • @akurn,Thanks for u'r response,what i done is grouping `cust#`.with values – Vinoth K Nov 12 '17 at 08:34
  • @akrun, i just taken cust# and checking same cust# for each row,if cust# value is same i'm creating list with value and count for that value.For ex:cust# 44 in 1 row and 2 row is common so i'm grouping each value. – Vinoth K Nov 12 '17 at 09:08

0 Answers0