MetehanGungor's questions

Estou tentando criar um gráfico que mostre alguns pontos de dados importantes destacados.

Conjunto de dados:

df <- structure(list(its = 1:20, pd = c(-0.521, -1.866, -0.11, 0.296, 
-0.14, -0.303, 0.141, 0.181, -0.116, 0.475, -0.117, 0.135, -0.139, 
-0.062, -0.098, 1.601, -0.093, -1.993, 2.249, 0.48)), class = "data.frame", row.names = c(NA, -20L))

Plotagem:

ggplot(df, aes(x = its, y = pd)) + 
  geom_point(size = 2, shape = 1) +
  geom_hline(yintercept = c(-1.5, 1.5)) +
  theme_bw() +
  labs(x = "", y = "")
  scale_x_discrete(limits = factor(its))

Entendi o enredo abaixo.

Meu objetivo é adicionar rótulos a vários pontos de dados com base em uma condição (pd < -1,5 ou pd > 1,5).

Então, o resultado desejado está abaixo (aviso: os rótulos não vêm apenas do itsvetor. Também quero adicioná I-los).

Estou tentando calcular a concordância entre avaliadores (teste Stuart-Maxwell). Cheguei a um certo ponto. Também detectei o problema. No entanto, tive um problema em algum lugar. Como posso encontrar o padrão no conjunto de dados? Para continuar a análise, preciso remover as matrizes problemáticas do conjunto de dados.

# 2 raters, 4 different response category and 4 subjects
R1 <- as.data.frame(expand.grid(rep(list(0:3), 4)))
R2 <- as.data.frame(expand.grid(rep(list(0:3), 4)))

# nrow(R1)*nrow(R2) = 256
pattern <- expand.grid(1:256, 1:256)
allPossible <- vector(mode = "list", length = nrow(pattern))
for(i in 1:nrow(pattern)){
  allPossible[[i]] <- rbind(R1[pattern[i, 1], ], R2[pattern[i, 2], ])
}

# 256*256 = 65536 possible rating
allPossible

# cross-tabulation
levs <- c(0:2)
list1 <- list()
list2 <- list()
list_A <- list()

for (i in 1:65536) {
  list1[[i]] <- factor(allPossible[[i]][1, ], levels = levs)
  list2[[i]] <- factor(allPossible[[i]][2, ], levels = levs)
  list_A[[i]] <- xtabs(~list1[[i]] + list2[[i]])
}

list_A

# 256 out of 65536 are completely same ratings. I have to delete them. (eg. check allPossible[1], allPossible[258])
list_B <- list_A[-seq(from = 1, to = 65536, by = 257)]

# Stuart-Maxwell Test
install.packages("DescTools")
library(DescTools)

# Now, I have 65280 different matrices
outputSM <- list()

for (i in 1:65280) {
  outputSM[[i]] <- StuartMaxwellTest(list_B[[i]])

}

outputSM

# it didn't work. Because, there are still some 3x3 matrices with the determinant 0 (zero).

# eg. problematic 3x3 matrices
StuartMaxwellTest(list_A[[260]])
StuartMaxwellTest(list_A[[820]])

# yes I found the source of some of problematic matrices 
allPossible[260]
allPossible[820]

Estou tentando adicionar mais linhas ao meu gráfico de linhas. Como posso garantir que todas as linhas recém-adicionadas estejam esmaecidas?

first4letters <- c(rep("A", 3), rep("B", 3), rep("C", 3), rep("D", 3))
times <- rep(c("time1", "time2", "time3"), 4)
score <- c(5, 10, 2, 3, 4, 7, 11, 2, 9, 4, 6, 11)

df <- data.frame(first4letters, times, score)
df

plot1 <- ggplot(data = df, aes(times, score, group = first4letters)) + 
  geom_line(aes(color = first4letters)) +
  geom_point(aes(color = factor(first4letters)), size = 1) +
  theme_classic()
plot1 + scale_color_manual(values = c("red", "blue", "black", "orange")) 

Vou adicionar algumas novas letras. Porém, as linhas que mostram essas letras devem ser cinza. Não consigo adicionar um novo valor à função scale_color_manual() . Porque a própria função determina a ordem das cores.