Statistics with Mini R

install.packages("rjson")
library(rjson)
mm=fromJSON(file="E:/FUM/ارشد/ترم3/محاسبات 2/Sample Json File with 500 Records.json")
mm=fromJSON(file=file.choose())
mm
print(mm)

install.packages("jsonlite")
library(jsonlite)
a=read_json(file.choose(),simplifyVector = T)

#read_json(https:/dummy.restapiexample.com/api/v1/employees)

install.packages(c("httr", "jsonlite"))
library(httr)
library(jsonlite)
q=GET("https:/dummy.restapiexample.com/api/v1/employees")
q
rawToChar(q$content)
data=fromJSON(rawToChar(q$content))
data

q=GET("https://open.er-api.com/v6/latest/USD")
data=fromJSON(rawToChar(q$content))

+ ▷میــــــــم◁ |

How to transfer data to excel in R

write.csv(k$ap$data,'E:/FUM/ارشد/ترم3/محاسبات 2/ap-data.csv')
write.csv(k$tt$data,'E:/FUM/ارشد/ترم3/محاسبات 2/tt-data.csv')
write.csv(k$mg$data,'E:/FUM/ارشد/ترم3/محاسبات 2/mg-data.csv')

install.packages('openxlsx')
library(openxlsx)
setwd('E:/FUM/ارشد/ترم3/محاسبات 2/')
write.xlsx(data.frame(k$ap$data),'ap.xlsx',sheet=1)
write.xlsx(data.frame(k$mg$data),'ap.xlsx',Sheet=2)

h=createWorkbook('a')
addWorksheet(h,'data')
addWorksheet(h,'indices')
addWorksheet(h,'indptr')
writeData(h,sheet=1,data.frame(k$ap$data))
writeData(h,sheet=2,data.frame(k$ap$indices))
writeData(h,sheet=3,data.frame(k$ap$indptr))
saveWorkbook(h,'ap.xlsx')

+ ▷میــــــــم◁ |

How to read an h5 file in R

install.packages("BiocManager")
??BiocManager
BiocManager::install('rhdf5')
library(rhdf5)
h5ls(file.choose())
h5dump(file.choose())
k=h5dump(file.choose())
mode(k)
class(k)
names(k)
k$ap
names(k$ap)
mode(k$ap)
mode(k$ap$data)
dim(k$ap$data)
length(k$ap$data)

+ ▷میــــــــم◁ |

How to write a shiny in R

library(shiny)
u <- fluidPage(
h1(br('API'),style="color:midnightblue"),
textInput('x','currency name:'),
verbatimTextOutput('y'),
h2(br('Barplot'),style="color:midnightblue"),
plotOutput('h'),
h2(br('Request time:'),style="color:midnightblue"),
verbatimTextOutput('z'),
h2(br('Last update:'),style="color:midnightblue"),
verbatimTextOutput('s'),
h2(br('Next update:'),style="color:midnightblue"),
verbatimTextOutput('r'),
)
s <- function(input,output){
f=function(x){
library(httr)
library(jsonlite)
q=GET("https://open.er-api.com/v6/latest/USD")
data=fromJSON(rawToChar(q$content))
c(which.max(names(sort(unlist(data$rates)))==toupper(input$x)),data$rates[toupper(input$x)])
}
library(httr)
library(jsonlite)
q=GET("https://open.er-api.com/v6/latest/USD")
data=fromJSON(rawToChar(q$content))
output$z=renderPrint(
q$date[]
)
output$y=renderPrint(
f(x())
)
output$s=renderPrint(
data$time_last_update_utc[]
)
output$r=renderPrint(
data$time_next_update_utc[]
)
output$h=renderPlot(
barplot(unlist(data$rates),col="midnightblue",main="Barplor of rates" )
)
}

shinyApp(u,s)

+ ▷میــــــــم◁ |

How to write a MP in R

example 1

doc_1 <- read_pptx()
doc_1 <- add_slide(doc_1, layout = "Two Content", master = "Office Theme")
doc_1 <- ph_with(x = doc_1, value = c("Table cars"), location = ph_location_type(type = "title") )
doc_1 <- ph_with(x = doc_1, value = names(cars), location = ph_location_left() )
doc_1 <- ph_with(x = doc_1, value = cars, location = ph_location_right() )
anyplot <- plot_instr(code = {
col <- c("#440154FF", "#443A83FF", "#31688EFF",
"#21908CFF", "#35B779FF", "#8FD744FF", "#FDE725FF")
barplot(1:7, col = col, yaxt="n")
})

doc_1 <- add_slide(doc_1)
doc_1 <- ph_with( doc_1, anyplot, location = ph_location_fullsize(), bg = "#006699")
print(doc_1,'address')

example 2

rm(list=ls())
library(httr)
library(jsonlite)
library(officer)
q=GET("https://open.er-api.com/v6/latest/USD")
data=fromJSON(rawToChar(q$content))
y=unlist(data$rates)

Mini=read_pptx()
Mini<- add_slide(Mini, layout = "Two Content", master = "Office Theme")
Mini<- ph_with(x = Mini, value = c("Variables"), location = ph_location_type(type = "title") )
Mini<- ph_with(x = Mini, value = names(data), location = ph_location_left() )
Mini<- add_slide(Mini, layout = "Two Content", master = "Office Theme")
Mini<- ph_with(x = Mini, value = c("Rate of some exchanges"), location = ph_location_type(type = "title") )
Mini<- ph_with(x =Mini, value = head(names(y)), location = ph_location_left())
Mini<- ph_with(x =Mini, value = head(y), location = ph_location_right())
anyplot <- plot_instr(code = {
col <- c("#443A63FF", "#443A83FF", "#31688EFF",
"#21908CFF", "#35B779FF", "#8FD744FF", "#FDE725FF")
hist(y, col = col, yaxt="n")
})
Mini<- add_slide(Mini)
Mini<- ph_with( Mini, anyplot, location = ph_location_fullsize(), bg = "#007699")
anyplot <- plot_instr(code = {
col <- c("#440154FF", "#443A83FF", "#31688EFF",
"#24908CFF", "#35B779FF", "#8FD744FF", "#FD7725FF")
pie(y, col = col, yaxt="n")
})
Mini<- add_slide(Mini)
Mini<- ph_with( Mini, anyplot, location = ph_location_fullsize(), bg = "#006699")
anyplot <- plot_instr(code = {
col <- c("#440654FF", "#443A53FF", "#31688EFF",
"#21908CFF", "#35B779FF", "#8FD734FF", "#FDE225FF")
barplot(y, col = col, yaxt="n")
})
Mini<- add_slide(Mini)
Mini<- ph_with( Mini, anyplot, location = ph_location_fullsize(), bg = "#006699")

print(Mini,'C:/Users/HP PAVILION/OneDrive/Desktop/Mini.pptx')

+ ▷میــــــــم◁ |

how to write a MW in R

example 1
test=read_docx()
test=body_add_fpar(test,fpar('This is a test.'))
test=body_add_fpar(test,fpar(''))
test=body_add_fpar(test,fpar('...',fp_p=fp_par(text.align = "right")))
test=body_add_fpar(test,fpar(''))
y=rnorm(25)
x=rnorm(25)
z=data.frame(x,y)
test=body_add_table(test,z)
test=test%>%
body_add_break()
test=body_add_fpar(test,fpar('.....',fp_p=fp_par(text.align = "right")))
test=body_add_plot(test,plot(x,y,col=5))
test=body_add_fpar(test,fpar(''))
test=body_add_fpar(test,fpar('The end'))
print(test,target='address)

example 2

library(officer)
library(readxl)
M <- read_xlsx("C://Users//4001395304//Desktop//mydata.xlsx")
Mydata <-read_docx()
body_add_fpar(Mydata,fpar('Scatter Plot for Week1 & Week2'))
body_add_fpar(Mydata,fpar(''))
W1 <- M[,1]
W2 <- M[,2]
z <- data.frame(W1,W2)
Mydata <- body_add_plot(Mydata,plot(z))

body_add_fpar(Mydata,fpar(' weight ~ Week1 | Regression Residuals'))
body_add_fpar(Mydata,fpar(''))
W1 <- unlist(W1)
W1 <- as.vector(W1,'numeric')
Mydata <- body_add(Mydata,lm(M$weight~W1)$res)

body_add_fpar(Mydata,fpar(''))
body_add_fpar(Mydata,fpar(' Table of Country '))
body_add_fpar(Mydata,fpar(''))
n <- table(M$country)
n <- data.frame(n)
Mydata <- body_add_table(Mydata,n)

print(Mydata,target='C:/Users/4001395304/Desktop/Mydata.docx')

+ ▷میــــــــم◁ |

Save jpeg or pdf in R from output

savePlot('test2.jpg',type = 'jpg')
or
jpeg('test3.jpg')
x[,plot(height,weight)]
dev.off()

pdf('test4.pdf')
x[,plot(height,bmi)]

dev.off()

for(i in 1:4){
jpeg('i.jpg');
hd[V1==i,hist(V4)];
dev.off()
}

for(i in unique(hd$V2)){
jpeg(paste(i,'jpg',sep ='.'));
hd[V2==i,hist(V7)];
dev.off()
}
for(i in unique(hd$V2)){
jpeg(paste(i,'jpg',sep ='.'));
hd[V2==i,boxplot(V7)];
dev.off()
}
for(i in unique(hd$V1)){
jpeg(paste(i,'jpg',sep="."))
hd[V1==i, plot(V6,V21,col="maroon",main=paste('Intecept:',round(coef(lm(hd$V6~hd$V21))[1],4),'Slope:',round(coef(lm(hd$V6~hd$V21))[2],4)))]
dev.off()
}

+ ▷میــــــــم◁ |

فراخوانی داده ها / read different data

h=read.table("address")
library(data.table)
library(readxl)
hx=read_excel('address')
co2=read.csv('address')
library(data.table)
fco2=fread('address')
x=data.table(height=round(rnorm(400,160,10)),weight=round(rnorm(400,65,10)))

بقـــیش:)

+ ▷میــــــــم◁ |

مطالب قدیمی‌تر