Analise Desempenho Windows

Informações sobre a máquina

Especificações do Dispositivo

Device name TUF-DASH-F15
Processor 11th Gen Intel(R) Core(TM) i7-11370H @ 3.30GHz 3.30 GHz
Installed RAM 16,0 GB (15,7 GB usable)
Device ID 3E1C8A7E-FC80-44E7-B138-619776B0BD34
Product ID 00325-97206-57715-AAOEM
System type 64-bit operating system, x64-based processor
Pen and touch No pen or touch input is available for this display

Especificações do Windows

Edition Windows 11 Home
Version 23H2
Installed on 11/06/2023
OS build 22631.4602
Experience Windows Feature Experience Pack 1000.22700.1055.0

Descrição da Imagem

Importação dos dados e remoção da primeira linha

library(ggplot2)

dados <- read.csv("DataCollector01.csv")
dados <- dados[-1, ]

Lorem

colnames(dados) <- c("Timestamp", "Processor_Time", "Memory_Usage", "Network_Bytes_Received", "Disk_Read_Time", "Disk_Write_Time")

# Converter a coluna Timestamp de caractere para POSIXct
dados$Timestamp <- as.POSIXct(dados$Timestamp, format = "%m/%d/%Y %H:%M:%OS")

# Extrair Hora, Minutos e Segundos
dados$Hour <- as.numeric(format(dados$Timestamp, "%H"))
dados$Minute <- as.numeric(format(dados$Timestamp, "%M"))
dados$Second <- as.numeric(format(dados$Timestamp, "%S"))

# Converter Hora, Minutos e Segundos para Decimal de Horas
dados$Decimal_Hour <- dados$Hour + dados$Minute / 60 + dados$Second / 3600

# Verificar as mudanças
summary(dados)

##    Timestamp                      Processor_Time   Memory_Usage  
##  Min.   :2024-12-19 10:27:55.18   Min.   :54.57   Min.   :70.83  
##  1st Qu.:2024-12-19 10:29:26.43   1st Qu.:55.69   1st Qu.:73.29  
##  Median :2024-12-19 10:30:57.68   Median :56.07   Median :73.95  
##  Mean   :2024-12-19 10:30:57.68   Mean   :56.46   Mean   :73.94  
##  3rd Qu.:2024-12-19 10:32:28.93   3rd Qu.:56.69   3rd Qu.:74.72  
##  Max.   :2024-12-19 10:34:00.20   Max.   :60.81   Max.   :76.47  
##  Network_Bytes_Received Disk_Read_Time      Disk_Write_Time       Hour   
##  Min.   :      0        Min.   : 0.000000   Min.   :0.6752   Min.   :10  
##  1st Qu.:    213        1st Qu.: 0.002967   1st Qu.:0.8258   1st Qu.:10  
##  Median :    886        Median : 0.010365   Median :1.0117   Median :10  
##  Mean   : 204156        Mean   : 0.613458   Mean   :1.2569   Mean   :10  
##  3rd Qu.:   2288        3rd Qu.: 0.054307   3rd Qu.:1.3873   3rd Qu.:10  
##  Max.   :5049109        Max.   :13.952219   Max.   :5.0277   Max.   :10  
##      Minute         Second       Decimal_Hour  
##  Min.   :27.0   Min.   : 0.00   Min.   :10.47  
##  1st Qu.:29.0   1st Qu.:11.25   1st Qu.:10.49  
##  Median :30.5   Median :27.50   Median :10.52  
##  Mean   :30.5   Mean   :27.50   Mean   :10.52  
##  3rd Qu.:32.0   3rd Qu.:43.75   3rd Qu.:10.54  
##  Max.   :34.0   Max.   :55.00   Max.   :10.57

ggplot(dados, aes(x = Decimal_Hour, y = Processor_Time)) +
  geom_line(color = "blue") +
  labs(title = "Uso do Processador ao Longo do Tempo",
       x = "Decimal Hour",
       y = "Processor Time") +
  theme_minimal()

### Lorem

ggplot(dados, aes(x = Decimal_Hour, y = Network_Bytes_Received)) +
  geom_line(color = "blue") +
  labs(title = "Bytes recebidos pela Rede ao longo do tempo",
       x = "Decimal Hour",
       y = "Bytes Received") +
  theme_minimal()

### Lorem

ggplot(dados, aes(x = Decimal_Hour, y = Disk_Read_Time)) +
  geom_line(color = "blue") +
  labs(title = "Leitura de Disco",
       x = "Decimal Hour",
       y = "Leitura de Disco") +
  theme_minimal()

Lorem

ggplot(dados, aes(x = Decimal_Hour, y = Disk_Write_Time)) +
  geom_line(color = "blue") +
  labs(title = "Escrita de Disco",
       x = "Decimal Hour",
       y = "Escrita de Disco") +
  theme_minimal()