, используя cast
вместо recast
(примечание 'Frequency'
теперь 'value'
)
df <- data.frame(Category = c("First","First","First","Second","Third","Third","Second")
, value = c(10,15,5,2,14,20,3))
install.packages("reshape")
result<-cast(df, Category ~ . ,fun.aggregate=sum)
, чтобы получить:
Category (all)
First 30
Second 5
Third 34
Это выберет Ваш удаленный IP-адрес
import urllib
ip = urllib.urlopen('http://automation.whatismyip.com/n09230945.asp').read()
Если Вы не хотите полагаться на кого-то еще, то просто загружают что-то вроде этого Сценарий PHP:
<?php echo $_SERVER['REMOTE_ADDR']; ?>
и измените URL в Python или если Вы предпочитаете ASP:
<%
Dim UserIPAddress
UserIPAddress = Request.ServerVariables("REMOTE_ADDR")
%>
Примечание: Я не знаю ASP, но я полагал, что могло бы быть полезно иметь здесь, таким образом, я погуглил.
whatismyip.org лучше..., это просто отбрасывает назад IP как простой текст без постороннего дерьма.
import urllib
ip = urllib.urlopen('http://whatismyip.org').read()
, Но да, невозможно сделать это легко, не полагаясь на что-то вне самой сети.