Vetores nomeados

Parte da seção Fundamentos do Journey de R da Coddy. Lição 62 de 78.

Até agora, você acessou elementos de vetores usando posições numéricas. Mas e se você pudesse acessá-los por nomes significativos em vez disso? Vetores nomeados permitem que você atribua rótulos a cada elemento, tornando seu código mais legível e autodocumentado.

Você pode criar um vetor nomeado fornecendo nomes durante a criação:

ages <- c(alice = 25, bob = 30, charlie = 28)
print(ages)

Saída:

  alice     bob charlie 
     25      30      28

Para acessar elementos por nome, use o nome como uma string dentro de colchetes:

print(ages["bob"])

Saída:

bob 
 30

Você também pode adicionar nomes a um vetor existente usando a função names():

scores <- c(85, 92, 78)
names(scores) <- c("math", "science", "english")
print(scores["math"])

Saída:

math 
  85

Vetores nomeados são especialmente úteis ao trabalhar com dados que possuem rótulos naturais, como armazenar notas de alunos por disciplina ou preços por nome de produto.

Desafio

Fácil

Você receberá duas linhas de entrada:

Uma lista de nomes de produtos separados por vírgula (ex: laptop,phone,tablet,headphones)
Uma lista de preços correspondentes separados por vírgula (ex: 999,699,449,199)

Realize as seguintes operações:

Crie um vetor numérico a partir dos preços
Atribua os nomes dos produtos ao vetor usando a função names()
Imprima o vetor nomeado completo
Imprima o preço do segundo produto acessando-o pelo seu nome
Imprima o preço do último produto acessando-o pelo seu nome

Por exemplo, se as entradas forem:

apple,banana,orange,grape
2,1,3,4

A saída deve ser:

apple banana orange  grape 
    2      1      3      4 
banana 
     1 
grape 
    4

Nota: Acesse o segundo e o último elementos pelos seus nomes (como strings), não pelo índice numérico.

Experimente você mesmo

# Ler a entrada
con <- file("stdin", "r")
products_input <- suppressWarnings(readLines(con, n = 1))
prices_input <- suppressWarnings(readLines(con, n = 1))
close(con)

# Analisar as entradas separadas por vírgula
product_names <- strsplit(products_input, ",")[[1]]
price_values <- strsplit(prices_input, ",")[[1]]

# TODO: Escreva seu código abaixo
# 1. Criar um vetor numérico a partir dos preços
# 2. Atribuir os nomes dos produtos ao vetor usando names()
# 3. Imprimir todo o vetor nomeado
# 4. Imprimir o preço do segundo produto acessando-o pelo seu nome
# 5. Imprimir o preço do último produto acessando-o pelo seu nome