Graphing with R - Revision history

PeterHarding: /* Generating the CSV Data */

2013-09-17T06:17:21Z

Generating the CSV Data

← Older revision		Revision as of 16:17, 17 September 2013
Line 81:		Line 81:
	=Generating the CSV Data=		=Generating the CSV Data=

	The following script (CpuCsv.py) is used to select a subset of a VMSTAT output.		The following script (CpuCsv.py) is used to select a subset of a VMSTAT output. [[File:CpuCsv.py]]

	<pre>		<pre>

PeterHarding: /* Generating the CSV Data */

2013-09-17T06:15:52Z

Generating the CSV Data

Show changes

PeterHarding at 06:14, 17 September 2013

2013-09-17T06:14:52Z

← Older revision		Revision as of 16:14, 17 September 2013
Line 78:		Line 78:
	[[Image:Lnfsna51 20130814.png]]		[[Image:Lnfsna51 20130814.png]]
	[[File:Lnfsna51 20130814.csv]]		[[File:Lnfsna51 20130814.csv]]

			=Generating the CSV Data=

			The following script (CpuCsv.py) is used to select a subset of a VMSTAT output.




	[[Category:R]]		[[Category:R]]

PeterHarding at 06:13, 17 September 2013

2013-09-17T06:13:04Z

← Older revision		Revision as of 16:13, 17 September 2013
Line 77:		Line 77:

	[[Image:Lnfsna51 20130814.png]]		[[Image:Lnfsna51 20130814.png]]
	[[File:Lnfsna51 20130814.~~png~~]]		[[File:Lnfsna51 20130814.csv]]



	[[Category:R]]		[[Category:R]]

PeterHarding at 06:12, 17 September 2013

2013-09-17T06:12:42Z

← Older revision		Revision as of 16:12, 17 September 2013
Line 76:		Line 76:
	[[File:Plot.r]]		[[File:Plot.r]]

	[[Image:~~lnfsnd51_20130814~~.png]]		[[Image:Lnfsna51 20130814.png]]
	[[File:~~lnfsnd51_20130814~~.~~csv~~]]		[[File:Lnfsna51 20130814.png]]



	[[Category:R]]		[[Category:R]]

PeterHarding at 06:10, 17 September 2013

2013-09-17T06:10:47Z

← Older revision		Revision as of 16:10, 17 September 2013
Line 16:		Line 16:
	)		)
	</pre>		</pre>

			[[File:Plot.bat_script]]

	==R Script File==		==R Script File==
Line 71:		Line 73:
	dev.off()		dev.off()
	</pre>		</pre>

			[[File:Plot.r]]

			[[Image:lnfsnd51_20130814.png]]
			[[File:lnfsnd51_20130814.csv]]



	[[Category:R]]		[[Category:R]]

PeterHarding: Created page with "=Processing Data on WIndows 7= I use the following BAT file to batch up R in a folder containing multiple data sets.

  @echo off  set R_TERM="C:\Apps\R\R-3.0.1\bin\i386..."

2013-09-17T06:04:17Z

Created page with "=Processing Data on WIndows 7= I use the following BAT file to batch up R in a folder containing multiple data sets. <pre> @echo off set R_TERM="C:\Apps\R\R-3.0.1\bin\i386..."

New page

=Processing Data on WIndows 7=

I use the following BAT file to batch up R in a folder containing multiple data sets.

<pre>

@echo off

set R_TERM="C:\Apps\R\R-3.0.1\bin\i386\Rterm.exe"

set FILES=*.csv

for %%F in (%FILES%) DO (
ECHO Processing %%F
%R_TERM% --no-restore --no-save --args %%F < plot.r > plot.out 2>&1
)
</pre>

==R Script File==

<pre>

args <- commandArgs(trailingOnly = TRUE)

print(args)

name <- args[1]

regexp <- "([^_]*)_([[:digit:]]{4})([[:digit:]]{2})([[:digit:]]{2}).*"

host <- sub(pattern=regexp, replacement="\\1", x=name)
year <- sub(pattern=regexp, replacement="\\2", x=name)
month <- sub(pattern=regexp, replacement="\\3", x=name)
day <- sub(pattern=regexp, replacement="\\4", x=name)

date <- sprintf("%s-%s-%s", year, month, day)

rm(args)

data_file <- sprintf("%s_%s%s%s.csv", host, year, month, day)

print(data_file)

data <- read.csv(data_file, header=T)

# data$Timestamp <- strptime(paste(data$Date, data$Time), "%Y-%m-%d %H:%M:%S")

data$Timestamp <- strptime(data$DateTime, "%Y-%m-%d %H:%M:%S")

title <- sprintf("%s - %s - %% CPU Utilization", date, host)

data$CPU <- data$User + data$System

print(title)

png(sprintf("%s_%s%s%s.png", host, year, month, day))

plot(data$Timestamp, data$CPU, main=title, type="h", col="light blue", xlab="Time", ylab="Ucpu%", lwd=1)

points(data$Timestamp, data$CPU, col="blue")

abline(h=mean(data$CPU), lty=2, col="red")

#s <- spline(data$CPU)

lines(smooth.spline(data$Timestamp, data$CPU, df = 10), lty = 3, col = "Dark Green")
#
#lines(s$x, s$y, type="b", pch=22, col="blue", lty=2)

dev.off()
</pre>

[[Category:R]]