```R
# 导入必要的包
library(rvest)
# 设置URL
url <- "https://jshk.com.cn/content/21/0420/21/7083887_858712492.shtml"
# 设置请求头部，使用代理
headers <- list Proxy = paste0("http://", proxy_host, ":", proxy_port)
# 使用rvest的read_html函数发送请求并获取网页源代码
webpage <- read_html(url, encoding = "UTF-8", headers = headers)
# 使用html_nodes函数选取需要爬取的元素
elements <- html_nodes(webpage, ".sleft .sleft-list li")
# 使用html_text函数提取元素的文本
texts <- html_text(elements)
# 打印提取的文本
texts
```
在代码中，我们首先导入了rvest包，然后设置了代理信息proxy_host和proxy_port。接下来，我们设置了要爬取的网页URL。
然后，我们设置了请求头部，使用代理。这里，我们使用了paste0函数将代理URL拼接成了请求头部。
接着，我们使用rvest的read_html函数发送请求并获取网页源代码。在这个过程中，我们指定了编码为"UTF-8"，并设置了请求头部。
然后，我们使用html_nodes函数选取了需要爬取的元素。在这个例子中，我们选取了网页中class为"sleft .sleft-list li"的元素。
最后，我们使用html_text函数提取了元素的文本，并将其存储在变量texts中。最后，我们打印出了提取的文本。
注意：在实际使用中，可能需要根据具体的网页结构和内容来调整选取元素的代码。
来自 “ ITPUB博客 ” ，链接：https://blog.itpub.net/70032566/viewspace-2993421/ ，如需转载，请注明出处，否则将追究法律责任。
