https://github.com/ingmarboeschen/graphing
A descriptive graphing function collection for R
https://github.com/ingmarboeschen/graphing
barplot descriptive-analysis multigroup networkplot profileplot regressionline stackedareachart worldmap
Last synced: 17 days ago
JSON representation
A descriptive graphing function collection for R
- Host: GitHub
- URL: https://github.com/ingmarboeschen/graphing
- Owner: ingmarboeschen
- Created: 2021-02-08T08:09:21.000Z (over 4 years ago)
- Default Branch: main
- Last Pushed: 2025-01-13T09:58:58.000Z (6 months ago)
- Last Synced: 2025-01-25T19:09:32.759Z (6 months ago)
- Topics: barplot, descriptive-analysis, multigroup, networkplot, profileplot, regressionline, stackedareachart, worldmap
- Language: R
- Homepage:
- Size: 50.7 MB
- Stars: 0
- Watchers: 1
- Forks: 0
- Open Issues: 0
-
Metadata Files:
- Readme: README.md
Awesome Lists containing this project
README
## The 'graphing' package
This package contains some convenient graphic functions for the statistical software R.
### Built With
* [R Core 3.6](https://www.r-project.org)
* [devtools](https://github.com/r-lib/devtools) package
### Depends on
The function **igraph2()** depends on the R packages
* [tm](https://cran.r-project.org/web/packages/tm/tm.pdf)
* [igraph](https://igraph.org/r/)
The function **worldmap2()** depends on the R packages
* [worldmap](https://cran.r-project.org/web/packages/rworldmap/rworldmap.pdf)
* [countrycode](https://cran.r-project.org/web/packages/countrycode/countrycode.pdf)
* [geosphere](https://cran.r-project.org/web/packages/geosphere/geosphere.pdf)
* [rgeos](https://cran.r-project.org/web/packages/rgeos/rgeos.pdf)
* [RColorBrewer](https://cran.r-project.org/web/packages/RColorBrewer/RColorBrewer.pdf)
The function **orcid2name()** depends on the R package
* [rorcid](https://cran.r-project.org/web/packages/rorcid/rorcid.pdf)
## Getting Started
To install **graphing** run the following steps:
### Installation
1. Install and load the [devtools](https://github.com/r-lib/devtools) package
``` r
# Install the devtools package
install.packages("devtools")
# Load the devtools package
library(devtools)
```
2. Install **graphing** from [https://github.com/ingmarboeschen/graphing](https://github.com/ingmarboeschen/graphing)
``` r
# Install graphing from github
install_github("ingmarboeschen/graphing")
```
## Examples
The examples listed below are minimal working examples. For a full documentation of each function, check the manual.
### prettybarplot(), an adjustable labeled bar plot with background color option
```r
x<-sample(letters[1:4],100,T)
y<-sample(1:3,100,T)
# one dimensional absolute frequencies
prettybarplot(table(x))
# two dimensional relative frequencies
prettybarplot(prop.table(table(x,y)))
```
### profileline(), course of descriptive parameters over several items
```r
matrix<-data.frame(matrix(sample(-3:3,1000,T),ncol=10))
names(matrix)<-paste("Item",1:10); g<-paste("Group",rep(1:3,length=100))
for(i in 1:dim(matrix)[2]){matrix[,i]<-factor(matrix[,i],-3:3,c("fully disagree","2","3","4","5","6","fully agree"))}
profileline(matrix,g,main="profileline()",N_legend=T,type="Median",ex=T,xlab="agreement")
profileline(matrix,g,main="",N_legend=T,pch="",type="Mean",ex=T,low="low",high="high",xlab="agreement")
```
### itemplot(), frequency distribution of categorical variable with descriptives
```r
x<-factor(sample(letters[1:6],100,T))
itemplot(x,main="itemplot()",labels=c("I fully\n disagree","I fully\n agree"),legend=F)
itemplot(x,main="itemplot()",labels=c("I fully\n disagree","I fully\n agree"))
```
### CIV(), confidence interval violin plot
```r
x<-sample(paste("group",1:4),100,T)
y<-10+as.numeric(factor(x))*2+rnorm(length(x))
CIV(x,y,main="Confidence Intervall Violin Plot")
```
### bp3d(), barplot for 3 dimensional contingency tables
```r
x <- sample(paste("time",1:4),240,T)
z <- rep(c("A","B"),each=120)
y <- paste("answer",sample(1:7,240,T))
bp3d(x,z,y,main="bp3d()",xlab="treatment group")
```
### stacked.area.chart(), stacked area chart for two dimensional contingency tables
```r
x<-sample(2010:2020,1000,T,.2+(1:11)*.5)
y<-sample(paste("category",LETTERS[1:10]),1000,T)
par(mar=c(4,4,2,5))
stacked.area.chart(table(x,y),main="stacked.area.chart()",ylab="h(x)",xlab="year",reorder=T)
stacked.area.chart(prop.table(table(x,y),m=1),main="stacked.area.chart()",ylab="f(x)",xlab="year")
```
### catplot(), conditioned/unconditioned frequency plot for two high dimensional categorial variables
```r
x<-sample(2010:2020,1000,T,.2+(1:11)*.5)
y<-sample(paste("group",LETTERS[1:10]),1000,T)
catplot(x,y,main="catplot()",xlab="year")
```
### multi.line(), multi group comparison of regression/lowess lines
```r
data(ChickWeight)
attach(ChickWeight)
Diet<-paste("Diet",ChickWeight$Diet)
multi.line(x=jitter(Time,2),y=weight,group=Diet,points=T,main="multi.line()",xlab="time",ylab="weight")
multi.line(x=jitter(Time,2),y=weight,group=Diet,points=F,main="multi.line() without points with lowess line",xlab="time",ylab="weight",type="lowess")
```
### igraph2(), simple network graph
```r
x<-list(
c("Laura","Ingmar"),
c("Peter","Renate","Ingmar","Andrea"),
c("Nassim","Ingmar","Sergej"),
c("Laura","Rike","Andra"),
c("Marlene","Nassim","Christina","Sabine"),
c("Bela","Ingmar","Mariola","Nassim"),
c("Gloria","Kim","Olek","Bolek"))
igraph2(x)
```
### worlmap2(), world map of country and country connection frequency
```r
x<-list(c("Germany","Austria","S. Korea"),
c("Germany","Austria","S. Korea"),c("Germany","Austria","S. Korea"),
c("Germany","Spain"),c("Germany","Spain"),c("United States","Germany"),
c("Germany","Cuba","Bolivia","South Africa"))
worldmap2(x)
# Note: arguments legend1 and legend2 need adjustments that dependend on the resolution of the resulting graph.
```
### orcid2name, ORCID author identification code to 'surname, name' conversion
```r
# Note: You need an ORCID account to authenticate to the ORCID api
name<-c("https://orcid.org/0000-0003-1159-3991","Einstein, Albert")
orcid2name(name)
```