library(tidyverse)
photo_data <- tibble(
object = c(
"Керамика 1",
"Керамика 2",
"Металл 1",
"Металл 2",
"Дерево 1",
"Дерево 2",
"Текстиль 1",
"Текстиль 2",
"Камень 1",
"Камень 2",
"Стекло 1",
"Стекло 2"
),
material = c(
"Керамика",
"Керамика",
"Металл",
"Металл",
"Дерево",
"Дерево",
"Текстиль",
"Текстиль",
"Камень",
"Камень",
"Стекло",
"Стекло"
),
photos = c(
90, 105,
140, 130,
80, 95,
110, 100,
100, 115,
150, 145
),
processing_min = c(
35, 40,
55, 50,
30, 35,
45, 40,
40, 45,
60, 55
)
)
photo_data