R notes 2

graph TD
A[Data Science] --> B[Data Source -Processing];
A[Data Science] --> C[Data Cleaning Pre Processing];
A[Data Science] --> D[Data Analysis Descriptive];
A[Data Science] --> E[Data Visualization];

r script to generate coordinates for a sine wave

count = 360;
 
str_header = paste("x", "y");
print(str_header, quote="FALSE");
 
i = 0;
while(i <  360){
	x = i;
	y = sin((x*pi/180));
	str_row = paste(x,y);
	print(str_row, quote=FALSE);
	i = i + 1;
 
}
 

rscript sine.r > sineData.txt

in excel import from text/csv

x = c(0:359)
y = sin(x*pi/180)
y = cos(x*pi/180)
 
plot(x,y,type="l")

OR

plot(c(0:359), sin(x*pi/180), type="l")

plot(c(0:359))

library(readxl)
data_file = file.choose()
sineData = read_xlsx(data_file)
plot(sineData)

add cos column to the data

sineData$"z" = cos(sineData$"x" * pi/180);

plot(sineData$"x", sineData$"z", type="l")
plot(read.xlsx(data_file));

write to an excel file

install.packages("writexl")
library(writexl)
newFilePath = "D:/college/R/newDataFile.xlsx"
write_xlsx(sineData, newFilePath);