假设已有图书销售信息的数据框为books，其中包含作者（author）、年份（year）和销售份数（copies_sold）等变量。

1. 首先，使用dplyr包中的group_by()函数将数据按作者和年份分组，并计算每组的销售总份数：

library(dplyr)
books_sum <- books %>%
            group_by(author, year) %>%
            summarise(total_copies = sum(copies_sold))

2. 然后，再次使用dplyr包中的group_by()函数将数据按作者分组，并计算每个作者每年的平均销售份数：

books_avg <- books_sum %>%
            group_by(author) %>%
            summarise(avg_copies = mean(total_copies))

3. 最后，使用arrange()函数对数据按平均销售份数降序排列，并用print()函数将结果打印输出：

books_avg_sorted <- books_avg %>%
                    arrange(desc(avg_copies))
print(books_avg_sorted)

这样就可以将每个作者按每年销售的图书份数降序打印出来了。