#' @export
#' @param dataset The data set you wish to graph
#' @param mapname The map name you wish to graph the data against. This is used to get the conversion for the data set. (conversion is map specific)
#' @param env Set the enviroment in wish to save the converted data sets.
#' @param Display will display each plot with a promt to continue. Set False to only save PDF of generated images.
#' @return Will return multiple data sets to the global enviroment, as well as a PDF of all saved plots.
#'
#' @description Will take in a data set, run a conversion based on the map name given, then return a series of datasets to then be used for graphing.
#' @title Convert and Graph Insrugency Data
ConvertandgraphIns = function(dataset,mapname, env = globalenv(),Display = TRUE){
# have to convert in any case
#
# Map OverView Data
# https://github.com/jaredballou/insurgency-data/blob/7aaf99049ca98aa0b9225696ca562b83d607a83b/maps/parsed/dry_canal.json
DIT = "Death Insurgent"
DST = "Death Security"
KIT = "Kill Insurgent"
KST = "Kill Security"
TDT = "Total Deaths"
TKT = "Total Kills"
ContactPosx = -4648
ContactPosy = 3900
Contactscale = 9
MarketPosx = -6386
MarketPosy = 5390
Marketscale = 12
BuhrizPosx = -11503
BuhrizPosy = 9100
Buhrizscale = 18
DistrictPosx = -9976
DistrictPosy = 10261
Districtscale = 12
HeightsPosx = -7150
HeightsPosy = 6500
Heightsscale = 14
StationPosx = -6534
StationPosy = 6747
Stationscale = 12
MinistryPosx = -7000
MinistryPosy = 4650
Ministryscale = 13
DryCanalPosx = -4800
DryCanalPosy = 4000
DryCanalscale = 10.3
TellPosx = -6899
TellPosy = 2360
Tellscale = 10
UprisingPosx = -3497
UprisingPosy = 4054
Uprisingscale = 7
VerticalityPosx = -7124
VerticalityPosy = 6169
Verticalityscale = 12
EmbassyPosx = -5156
EmbassyPosy = 4771
Embassyscale = 9.35
KandagalPosx = -5873
KandagalPosy = 7426
Kandagalscale = 11
PanjPosx = -5374
PanjPosy = 5842
Panjscale = 11
PeakPosx = -8812
PeakPosy = 8534
Peakscale = 17
RevoltPosx = -5793
RevoltPosy = 4728
Revoltscale = 10
SiegePosx = -5400
SiegePosy = 4110
Siegescale = 8
SinjarPosx = -7351
SinjarPosy = 8007
Sinjarscale = 13.5
# completed section for
# Revolt
# Peak
# Panj
# Market
# Buhriz
# District
# Heights
# Station
# Ministry
# Contact
# DryCanal
# Tell
# Uprising
# Verticality
# Kandagal
# Seige
# Sinjar
if(mapname=="sinjar" || mapname =="Sinjar")
{
# saves the converted files to "Sinjar" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-SinjarPosx)/Sinjarcale), ((dataset[,3]-SinjarPosy)/Sinjarscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-SinjarPosx)/Sinjarscale), ((dataset[,9]-SinjarPosy)/Sinjarscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste(mapname,"Totalkills",sep=""),convertedkills,envir=env)
assign(paste(mapname,"Totaldeaths",sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="siege" || mapname =="Siege")
{
# saves the converted files to "Siege" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-SiegePosx)/Siegescale), ((dataset[,3]-SiegePosy)/Siegescale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-SiegePosx)/Siegescale), ((dataset[,9]-SiegePosy)/Siegescale))
names(converteddeaths) = c("Side","X","Y")
assign(paste(mapname,"Totalkills",sep=""),convertedkills,envir=env)
assign(paste(mapname,"Totaldeaths",sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="revolt" || mapname =="Revolt")
{
# saves the converted files to "Revolt" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-RevoltPosx)/Revoltscale), ((dataset[,3]-RevoltPosy)/Revoltscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-RevoltPosx)/Revoltscale), ((dataset[,9]-RevoltPosy)/Revoltscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste(mapname,"Totalkills",sep=""),convertedkills,envir=env)
assign(paste(mapname,"Totaldeaths",sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="peak" || mapname =="Peak")
{
# saves the converted files to "Peak" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-PeakPosx)/Peakscale), ((dataset[,3]-PeakPosy)/Peakscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-PeakPosx)/Peakscale), ((dataset[,9]-PeakPosy)/Peakscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste(mapname,"Totalkills",sep=""),convertedkills,envir=env)
assign(paste(mapname,"Totaldeaths",sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="panj" || mapname =="Panj")
{
# saves the converted files to "Panj" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-PanjPosx)/Panjscale), ((dataset[,3]-PanjPosy)/Panjscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-PanjPosx)/Panjscale), ((dataset[,9]-PanjPosy)/Panjscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste(mapname,"Totalkills",sep=""),convertedkills,envir=env)
assign(paste(mapname,"Totaldeaths",sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="kandagal" || mapname =="Kandagal")
{
# saves the converted files to "Kandagal" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-KandagalPosx)/Kandagalscale), ((dataset[,3]-KandagalPosy)/Kandagalscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-KandagalPosx)/Kandagalscale), ((dataset[,9]-KandagalPosy)/Kandagalscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste(mapname,"Totalkills",sep=""),convertedkills,envir=env)
assign(paste(mapname,"Totaldeaths",sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="embassy" || mapname =="Embassy")
{
# saves the converted files to "Embassy" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-EmbassyPosx)/Embassyscale), ((dataset[,3]-EmbassyPosy)/Embassyscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-EmbassyPosx)/Embassyscale), ((dataset[,9]-EmbassyPosy)/Embassyscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste(mapname,"Totalkills",sep=""),convertedkills,envir=env)
assign(paste(mapname,"Totaldeaths",sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="verticality" || mapname =="Verticality")
{
# saves the converted files to "Verticality" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-VerticalityPosx)/Verticalityscale), ((dataset[,3]-VerticalityPosy)/Verticalityscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-VerticalityPosx)/Verticalityscale), ((dataset[,9]-VerticalityPosy)/Verticalityscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="uprising" || mapname =="Uprising")
{
# saves the converted files to "Uprising" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-UprisingPosx)/Uprisingscale), ((dataset[,3]-UprisingPosy)/Uprisingscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-UprisingPosx)/Uprisingscale), ((dataset[,9]-UprisingPosy)/Uprisingscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="tell" || mapname =="Tell")
{
# saves the converted files to "Tell" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-TellPosx)/Tellscale), ((dataset[,3]-TellPosy)/Tellscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-TellPosx)/Tellscale), ((dataset[,9]-TellPosy)/Tellscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="drycanal" || mapname =="DryCanal")
{
# saves the converted files to "DryCanal" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-DryCanalPosx)/DryCanalscale), ((dataset[,3]-DryCanalPosy)/DryCanalscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-DryCanalPosx)/DryCanalscale), ((dataset[,9]-DryCanalPosy)/DryCanalscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="contact" || mapname =="Contact")
{
# saves the converted files to "Contact" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-ContactPosx)/Contactscale), ((dataset[,3]-ContactPosy)/Contactscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-ContactPosx)/Contactscale), ((dataset[,9]-ContactPosy)/Contactscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS)
assign(paste(mapname,"DeathIns",sep=""),DI)
assign(paste(mapname,"KillSec",sep=""),KS)
assign(paste(mapname,"KillIns",sep=""),KI)
}
if(mapname=="market" || mapname =="Market")
{
# saves the converted files to "market" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-MarketPosx)/Marketscale), ((dataset[,3]-MarketPosy)/Marketscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-MarketPosx)/Marketscale), ((dataset[,9]-MarketPosy)/Marketscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste(mapname,"Totalkills",sep=""),convertedkills,envir=env)
assign(paste(mapname,"Totaldeaths",sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="buhriz" || mapname =="Buhriz")
{
# saves the converted files to "buhriz" specific tag.
#
convertedkills = data.frame(dataset[,1], ((dataset[,2]-BuhrizPosx)/Buhrizscale), ((dataset[,3]-BuhrizPosy)/Buhrizscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-BuhrizPosx)/Buhrizscale), ((dataset[,9]-BuhrizPosy)/Buhrizscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="district" || mapname =="District")
{
# saves the converted files to "District" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-DistrictPosx)/Districtscale), ((dataset[,3]-DistrictPosy)/Districtscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-DistrictPosx)/Districtscale), ((dataset[,9]-DistrictPosy)/Districtscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="heights" || mapname =="Heights")
{
# saves the converted files to "Heights" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-HeightsPosx)/Heightsscale), ((dataset[,3]-HeightsPosy)/Heightsscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-HeightsPosx)/Heightsscale), ((dataset[,9]-HeightsPosy)/Heightsscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="ministry" || mapname =="Ministry")
{
# saves the converted files to "Ministry" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-MinistryPosx)/Ministryscale), ((dataset[,3]-MinistryPosy)/Ministryscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-MinistryPosx)/Ministryscale), ((dataset[,9]-MinistryPosy)/Ministryscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
if(mapname=="station" || mapname =="Station")
{
# saves the converted files to "Station" specific tag.
convertedkills = data.frame(dataset[,1], ((dataset[,2]-StationPosx)/Stationscale), ((dataset[,3]-StationPosy)/Stationscale))
names(convertedkills) = c("Side","X","Y")
converteddeaths = data.frame(dataset[,7], ((dataset[,8]-StationPosx)/Stationscale), ((dataset[,9]-StationPosy)/Stationscale))
names(converteddeaths) = c("Side","X","Y")
assign(paste("convertedkills",mapname,sep=""),convertedkills,envir=env)
assign(paste("converteddeaths",mapname,sep=""),converteddeaths,envir=env)
# split the deaths and kills by "side"
splitdatadeaths = split(converteddeaths,converteddeaths[,1])
splitdatakills = split(convertedkills,convertedkills[,1])
DS = splitdatadeaths$Security
DI = splitdatadeaths$Insurgents
KS = splitdatakills$Security
KI = splitdatakills$Insurgents
assign(paste(mapname,"DeathSec",sep=""),DS,envir=env)
assign(paste(mapname,"DeathIns",sep=""),DI,envir=env)
assign(paste(mapname,"KillSec",sep=""),KS,envir=env)
assign(paste(mapname,"KillIns",sep=""),KI,envir=env)
}
mapname = tolower(mapname)
imagename = get(paste("i",mapname,sep=""))
DSC = nrow(DS)
DIC = nrow(DI)
KSC = nrow(KS)
KIC = nrow(KI)
TKC = nrow(convertedkills)
TDC = nrow(converteddeaths)
DSCR = round(DSC/DIC, digits=3)
DICR = round(DIC/DSC, digits=3)
KSCR = round(KSC/KIC, digits=3)
KICR = round(KIC/KSC, digits=3)
TKCR = round(TKC/TDC, digits=3)
TDCR = round(TDC/TKC, digits=3)
DST = paste(DST," - ", DSC, " - ", DSCR)
DIT = paste(DIT," - ", DIC, " - ", DICR)
KST = paste(KST," - ", KSC, " - ", KSCR)
KIT = paste(KIT," - ", KIC, " - ", KICR)
TKT = paste(TKT," - ", TKC, " - ", TKCR)
TDT = paste(TDT," - ", TDC, " - ", TDCR)
DSP = Autogen(DS,imagename,DST)
DIP = Autogen(DI,imagename,DIT)
KSP = Autogen(KS,imagename,KST)
KIP = Autogen(KI,imagename,KIT)
TKP = Autogen(convertedkills,imagename,TKT)
TDP = Autogen(converteddeaths,imagename,TDT)
if(Display==TRUE)
{
readline(prompt=paste("Press [Enter] to generate ",DST, "... Press [Esc] to exit.",sep=""))
print(DSP)
readline(prompt=paste("Press [Enter] to generate ",DIT, "... Press [Esc] to exit.",sep=""))
print(DIP)
readline(prompt=paste("Press [Enter] to generate ",KST, "... Press [Esc] to exit.",sep=""))
print(KSP)
readline(prompt=paste("Press [Enter] to generate ",KIT, "... Press [Esc] to exit.",sep=""))
print(KIP)
readline(prompt=paste("Press [Enter] to generate ",TKT, "... Press [Esc] to exit.",sep=""))
print(TKP)
readline(prompt=paste("Press [Enter] to generate ",TDT, "... Press [Esc] to exit.",sep=""))
print(TDP)
}
readline(prompt="Press [Enter] to save to PDF ... Press [Esc] to exit.")
mypath = file.path(getwd())
print(paste("Save location is ", mypath))
print("Wait for PDF to save and close")
pdf(paste(mypath,mapname,format(Sys.time(), "%Y_%m_%d_%I_%M_%S_%p"),".pdf",sep=""),height = 25.6, width = 14.4)
plot(DSP)
plot(DIP)
plot(KSP)
plot(KIP)
plot(TKP)
plot(TDP)
dev.off()
print("R has finished saving your PDF")
}
Add the following code to your website.
For more information on customizing the embed code, read Embedding Snippets.