Используя этот код:
ggplot(data=new.data+
geom_point(mapping=aes(x=num,y=score),shape=0)+
geom_smooth(mapping=aes(x=number,y=score),color="black",method="lm")+
xlim(2,9)+
ylim(10,25)+
xlab("Number of trials")+
ylab("Mean Outcome")+
theme(panel.grid.minor = element_blank(),
panel.background = element_blank(),axis.line = element_line(colour = "black"))
Мы можем создать следующий ggplot: 
Что я хочу сделать, это добавить вторую ось Xв идеале в верхней части сюжета. Должно быть семь записей, соответствующих каждому из семи значений x. Проблема в том, что они не находятся в однозначном соответствии с х. Например, они должны быть 1,2,4,8,16,32,64, например. Если 1 находится над первым набором точек, 2 - над вторым, 4 - над третьим и т. Д. Обратите внимание, что число испытаний - не точное число, следовательно, это не просто целые числа, а что-то вроде 2,5 и т. Д.
Можно ли это сделать? Я знаю, что sec_axis требует преобразования 1-1.
Если это невозможно сделать с помощью ggplot, есть ли способ добавить его по-другому?