'Aggregate' for DataFrames from CSV

xxxxxxxxxx

 

1

print(r.eval("""

2

mean_aggr_csv<-function(url,sep,column,group_by) {

3

    df<-read.csv(url,header=TRUE,sep=sep)

4

    len<-dim(df)[1]

5

    group_list<-list(df[1:len,group_by])

6

    result<-aggregate(df[column],group_list,mean)

7

    colnames(result)<-c(group_by,paste0('mean ',column))

8

    return(result)}

9

median_aggr_csv<-function(url,sep,column,group_by) {

10

    df<-read.csv(url,header=TRUE,sep=sep)

11

    len<-dim(df)[1]

12

    group_list<-list(df[1:len,group_by])

13

    result<-aggregate(df[column],group_list,median)

14

    colnames(result)<-c(group_by,paste0('median ',column))

15

    return(result)}

16

sum_aggr_csv<-function(url,sep,column,group_by) {

17

    df<-read.csv(url,header=TRUE,sep=sep)

18

    len<-dim(df)[1]

19

    group_list<-list(df[1:len,group_by])

20

    result<-aggregate(df[column],group_list,sum) 

21

    colnames(result)<-c(group_by,paste0('sum ',column))

22

    return(result)}

23

url<-'https://olgabelitskaya.github.io/huge_cities.tsv'

24

sep='\t'; column<-'growth'; group_by<-'country'

25

mean_aggr_csv(url,sep,column,group_by)

26

"""))

Language: Sage Gap GP HTML Macaulay2 Maxima Octave Python R Singular

---

Messages