From 4838e3a904548a5ea51250f02d8d9972a1afc98b Mon Sep 17 00:00:00 2001 From: beau Date: Tue, 24 Dec 2024 14:57:06 +0100 Subject: [PATCH] Supprimer INSA/TP anadon/.Rhistory --- INSA/TP anadon/.Rhistory | 171 --------------------------------------- 1 file changed, 171 deletions(-) delete mode 100644 INSA/TP anadon/.Rhistory diff --git a/INSA/TP anadon/.Rhistory b/INSA/TP anadon/.Rhistory deleted file mode 100644 index d91b83a..0000000 --- a/INSA/TP anadon/.Rhistory +++ /dev/null @@ -1,171 +0,0 @@ -setwd("C:/Users/PC/Desktop/INSA/anadonn") -library(knitr) -## Global options -options(max.print="75") -opts_chunk$set(echo=FALSE, -eval=FALSE, -cache=FALSE, -prompt=FALSE, -tidy=TRUE, -comment=NA, -message=FALSE, -warning=FALSE, -class.source="badCode") -opts_knit$set(width=75) -donnees <- read.table("DataProjet3MIC-2425.txt",header=TRUE, sep=";") -str(donnees) -summary(donnees) -ggplot(data = donnees)+ -geom_point(aes(x=ExpT1,y=T1_1H_R1)) -library(corrplot) -library(ggplot2) -library(gridExtra) -library(forcats) -library(reshape2) -library(BioStatR) -library(FactoMineR) -library(factoextra) -library(knitr) -## Global options -options(max.print="75") -opts_chunk$set(echo=FALSE, -eval=FALSE, -cache=FALSE, -prompt=FALSE, -tidy=TRUE, -comment=NA, -message=FALSE, -warning=FALSE, -class.source="badCode") -opts_knit$set(width=75) -donnees <- read.table("DataProjet3MIC-2425.txt",header=TRUE, sep=";") -head(donnees,200) -str(donnees) -summary(donnees) -ggplot(data = donnees)+ -geom_point(aes(x=ExpT1,y=T1_1H_R1)) -apply(donnees[,1:36],2,var) -apply(donnees[,1:36],2,mean) -hist(donnees$T1_1H_R1) -ggplot(donnees,aes(x=T1_1H_R1))+geom_boxplot() -library(knitr) -## Global options -options(max.print="75") -opts_chunk$set(echo=TRUE, -cache=FALSE, -prompt=FALSE, -tidy=TRUE, -comment=NA, -message=FALSE, -warning=FALSE, -class.source="badCode") -opts_knit$set(width=75) -library(corrplot) -library(ggplot2) -library(gridExtra) -library(forcats) -library(reshape2) -library(BioStatR) -dim(wine) -nrow(wine) -ncol(wine) -head(wine) -wine <- read.table("wine.txt",header=TRUE) -head(wine) -dim(wine) -nrow(wine) -ncol(wine) -is.data.frame(wine) -names(wine) -colnames(wine) -str(wine) -wine$Qualite<-as.factor(wine$Qualite) -wine$Type<-factor(wine$Type,labels=c("blanc","rouge")) -head(wine) -summary(wine) -gEx <- ggplot(data=wine) -summary(gEx) -names(gEx) -gEx$layers -ggplot(data=wine,aes(x=Densite,y=Alcool))+ -geom_point() -ggplot(data=wine)+ -geom_point(aes(x=Densite,y=Alcool,color=Type)) -ggplot(data=wine)+ -geom_point(aes(x=Densite,y=Alcool),color="blue") -# A COMPLETER -summary(wine$Type) -levels(wine$Type -) -table(wine$Type) -g1<-ggplot(wine, aes(x=Type))+ -geom_bar()+ -ylab("")+ggtitle("Effectifs") -g2<-ggplot(wine, aes(x = Type)) + -geom_bar(aes(y = (..count..)/sum(..count..)))+ylab("")+ggtitle("Frequences") -df <- data.frame(group = levels(wine$Type), -value = as.vector(table(wine$Type))/nrow(wine)) -g3<-ggplot(df, aes(x="", y=value, fill=group))+ -geom_bar(width = 1, stat = "identity")+ -coord_polar("y", start=0)+ -theme(legend.position="bottom") -grid.arrange(g3,g1,g2,ncol=3) -wine$Qualite <- fct_relevel(wine$Qualite,"bad","medium","good") -EffQual=as.vector(table(wine$Qualite)) -FreqQual= data.frame(Eff = EffQual, Freq = EffQual/length(wine$Qualite), FreqCumul=cumsum(EffQual)/length(wine$Qualite)) -rownames(FreqQual)=levels(wine$Qualite) -knitr::kable(FreqQual, caption = 'Description de la variable Qualite',booktabs = TRUE,digits=3) -df <- data.frame(Qualite = levels(wine$Qualite), value = table(wine$Qualite), -valuecumul = 100 * cumsum(prop.table(table(wine$Qualite)))) -df$Qualite <- fct_relevel(df$Qualite, "bad", "medium", "good") -df <- data.frame(df, freq = df$value.Freq/nrow(wine)) -g1 <- ggplot(wine) + geom_bar(aes(x = Qualite)) + ggtitle("Effectifs")+xlab("Qualite") -g2 <- ggplot(wine) + geom_bar(aes(x = Qualite, y = ..prop.., group = 1)) + ggtitle("Frequences")+xlab("Qualite") -g3 <- ggplot(df, aes(x = Qualite, y = valuecumul)) + geom_bar(stat = "identity") + -ggtitle("Fréquences cumulées") -g4 <- ggplot(df, aes(x = "", y = freq, fill = Qualite)) + geom_bar(width = 1, stat = "identity") + -coord_polar("y", start = 0) -grid.arrange(g1, g2, g3, g4, ncol = 2) -mean(wine$Alcool) -median(wine$Alcool) -var(wine$Alcool) -sd(wine$Alcool) -range(wine$Alcool) -summary(wine$Alcool) -quantile(wine$Alcool,0.75,names=FALSE)-quantile(wine$Alcool,0.25,names = FALSE) -quantile(wine$Alcool) -H<-hist(wine$Alcool) -ggplot(wine,aes(y=Alcool))+geom_boxplot() -wineaux<-melt(wine[,-c(1,2)]) -ggplot(wineaux,aes(x=variable,y=value))+ -geom_boxplot() -B<-boxplot(wine$Alcool) -print('Correlation') -cor(wine[,-c(1,2)]) -print('Covariance') -cov(wine[,-c(1,2)]) -help(corrplot) -corrplot(cor(wine[,-c(1,2)]),method = "ellipse") -ggplot(data=wine)+ -geom_point(aes(x=Alcool,y=Densite))+ -geom_smooth(aes(x=Alcool,y=Densite),method="lm") -donneesaux<-melt(donnees[,-(37:39)]) -ggplot(donneesaux,aes(x=variable,y=value))+ -geom_boxplot() -donneesaux<-melt(donnees[,(1:18)]) -ggplot(donneesaux,aes(x=variable,y=value))+ -geom_boxplot() -don_R1<-melt(donnees[,(1:18)]) -gR1=ggplot(don_R1,aes(x=variable,y=value))+ -geom_boxplot() -don_R2<-melt(donnees[,(19:36)]) -gR2=ggplot(don_R2,aes(x=variable,y=value))+ -geom_boxplot() -grid.arrange(gR1, gR2, ncol = 2) -don_R1<-melt(donnees[,(1:18)]) -gR1=ggplot(don_R1,aes(x=variable,y=value))+ -geom_boxplot() -don_R2<-melt(donnees[,(19:36)]) -gR2=ggplot(don_R2,aes(x=variable,y=value))+ -geom_boxplot() -grid.arrange(gR1, gR2, nrow = 2)