Exercises in R and Python in the Same Cell

xxxxxxxxxx

 

1

import rpy2.robjects as ro,pandas as pd,pylab as pl

2

import warnings as wr; wr.filterwarnings('ignore')

3

from rpy2.robjects.packages import importr

4

from rpy2.robjects.conversion import localconverter

5

from rpy2.robjects import r,pandas2ri

6

pandas2ri.activate()

7

pd_dict={'real_values':[random() for i in range(10)],

8

         'str_values':['😀','😁','😂','😃','😄',

9

                       '😉','😊','😋','😌','😍']} 

10

pd_df=pd.DataFrame(pd_dict)

11

base=importr('base')

12

with localconverter(ro.default_converter+pandas2ri.converter):

13

    df_summary=base.summary(pd_df)

14

ppd_df=pd_df.plot(kind='line',x='str_values',y='real_values',

15

                  marker='*',lw=1,figsize=(6.5,4))

16

ppd_df.set_xticks(list(range(10)))

17

ppd_df.set_xticklabels(pd_df.str_values)

18

print(df_summary); pl.show()

19

r_df=ro.r('df<-data.frame(x=c(1:10),'+\

20

          'y=.1*sample(c(1:10),10),'+\

21

          'stringsAsFactors=F)')

22

ro.r('svg(filename="Rplots.svg",width=6.5,height=5,'+\

23

     'onefile=T,family="sans",bg="white",pointsize=10,'+\

24

     'antialias=c("default","none","gray","subpixel")); '+\

25

     'plot(df,type="o",ylim=c(0,1),pch=8,col="steelblue"); '+\

26

     'dev.off()')

27

with localconverter(ro.default_converter+pandas2ri.converter):

28

    print(base.summary(ro.r('df')))

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

---

Messages