dfri-nmembers-rscript

preproc.sh

#!/bin/bash

infile=$1
echo "date,members" > out.data
sed -e 's/^nmembers[ \t]*\([0-9\-]*\)[ \t]*\(.*\)$/\1,\2/g' $infile >> out.data

run.sh

#!/bin/sh
# requires r-base installed (providing RScript binary)

bash preproc.sh sampledata.txt
Rscript script.R

sampledata.txt

nmembers	    2014-04-11 	  34
nmembers	  2015-04-11 	  54
nmembers	     2015-05-11 	  66
nmembers	  2015-10-11 	  76
nmembers	     2016-01-11 	  84
nmembers   	2016-02-10 100

script.R

mydata = read.csv('out.data')
mydata$date <- strptime(mydata$date, "%Y-%m-%d")
png("dfri_members.png")
plot(mydata$date, mydata$members, main="DFRI Members", xlab="Time", ylab="Members")
lines(mydata$date, mydata$members, type='o')
dev.off()